Help for this page

Select Code to Download


  1. or download this
    $ perl -E'sub f()  { 0 }  say f + 1;'
1

$ perl -E'sub f($) { 0 }  say f + 1;'
0
  2. or download this
    $ perl -E'sub f    { say $_[0]; }  f { foo => "bar" };'
HASH(0x816c158)

$ perl -E'sub f(&) { say $_[0]; }  f { foo => "bar" };'
CODE(0x817bc80)
  3. or download this
    $ perl -E'         $x = foo; say $x; sub foo { "sub" }'
foo

$ perl -E'sub foo; $x = foo; say $x; sub foo { "sub" }'
sub