Parameter einlesen

[hotti]

Hi,

meine Unterroutine hatte bisher 4 Parameter und die habe ich gelesen mit
my ($p1, $px, $p123, $pwy) = @_;

Ja, das ist so üblich, aber macht Arbeit, wenn mal was geändert werden soll.

Jetzt erwartet sie bei einem bestimmten Wert von $p1 einen 5. Parameter.
Wie lese ich diesen am besten ein?

Gib eine Hashreferenz in die Unterfunktion. Die Referenz ist eine Sammlung von Parametern:

  
my $p = {  
 name => 'Hansel',  
 vname => 'Ulrich',  
 ort  => 'Schweinford',  
 fam => 'ledig',  
 tel => '333',  
}  
  
sub function{  
 my $p = shift;  
  
 if($p->{fam} eq 'ledig'){ print "Ruf an: $p->{tel}" }  
  
}  

Horst Otto