Help for this page

Select Code to Download


  1. or download this
    sub f {
   my ($arg1,$arg2,$arg3) = @_;
...

f();        # Works. ($arg1, $arg2 and $arg3 are undef.)
f(1,2,3,4); # Works. ('4' is ignored.)
  2. or download this
    sub f {
   my ($arg1) = @_;
...

t1('moo');  # t1: [undef]
t2('moo');  # t2: moo