0 als Parameter prüfen - #129595 (Allgemeines zu Perl)

MatthiasW

2009-12-21 21:57

User since
2008-01-27
367 Artikel
BenutzerIn
[default_avatar]

Ab 5.10 kannst du defined-or (//) verwenden:

Code (perl): (dl )

1
2
3

sub test {
    my $i = shift // die("Missing argument i.");
} # test

Ansonsten kannst du auch die Länge von @_ prüfen:

Code (perl): (dl )

1
2
3

sub test {
    my $i = @_ ? shift : die("Missing argument i.");
} # test

MfG

perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'