pktm+2008-09-28 20:54:50--

moritz+2008-09-28 20:46:14--

...

Code: (dl )

1
2
3
4

sub s {
    die "missing arg" unless @_;
    my $arg = shift;
}

Das Beispiel da funktioniert aber nur, wenn es genau 1 Parameter ist.
Ich habe mehrere, hatte das oben nur reduziert.

1
2
3
4
5

sub foo {
  die "missing arg(s)" unless @_ < 23;
  my $arg = shift;
  # ...
}