Parameter vorhanden oder nicht

[Siechfred]

Begrenzt ist das über die Abfrage
if(defined $p3)
möglich.

Folgende Variante wäre ebenso denkbar:

sub foo {  
  my $var1 = shift || 'default';  
  my $var2 = shift || 0;  
  my $var3 = shift || undef;  
  # usw. usf.  
}

Das hat den Vorteil, dass du keine ellenlangen Abfragen nach definierten Werten machen musst oder Inkonsistenzen im Code wegen nicht übergebener Werte hast. Ansonsten neige ich zu der Variante mit (anonymen) Hashs als Übergabewert, dann hat man mit der Anzahl der Parameter keine Probleme, es ist immer nur einer.

Siechfred