|
#!/usr/local/bin/perl use strict; use warnings; sub count (@) { my $sum = 0; $sum += length foreach (@_); return $sum; } print count(<>), "\n"; |
Parameter-Deklarationen mit Namen gibt es bislang in
Perl nicht. Es ist aber möglich, innerhalb von (...)
mit Symbolen Überprüfungen von Perl durchführen zu
lassen und einen gewissen Kontext zu erzwingen.
| |
Bei obigen Beispiel wird mit (@) ein Listenkontext
erzwungen. Demzufolge wird <> beim Aufruf von count
in einen Listenkontext gebracht, so daß alle Eingabezeilen
als Liste in einem Schwung übergeben werden.
|
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |