Deklaration von Parametern II

addresses3.pl

sub get_addressbook ($;$) { my ($infile, $fieldsep) = @_; $fieldsep = ":" unless defined $fieldsep; my $book = new IO::File $infile or die "Unable to open $infile: $!\n"; my %address; while (<$book>) { chomp; my ($name, $address) = split /$fieldsep/; $address{$name} = $address; } $book->close; return %address; }

($;$) steht für zwei skalare Parameter, wovon der zweite optional ist, da er hinter dem Semikolon steht.

Zulässig sind dann beispielsweise
my %address = get_addressbook(äddressbook");
und
my %address = get_addressbook(äddressbook", ":");

Unterstützt werden:

$ skalare Variable / skalarer Kontext

@ Liste / Listen-Kontext

% assoziatives Array / Listen-Kontext

& Verweis auf eine Funktion

* Verweis auf einen Symboltabelleneintrag (Type-Glob)