Help for this page

Select Code to Download


  1. or download this
    sub foo {
    my @foo = qw(a b c d);
...
print scalar foo(), "\n"; # scalar context => 4\n
print        bar(), "\n"; #   list context => 154312\n
print scalar bar(), "\n"; # scalar context => 12\n
  2. or download this
    2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$