Help for this page

Select Code to Download


  1. or download this
    $ perl -MO=Concise,-exec -e'local $s = "foo"' 2>&1 | grep assign
5  <2> sassign vKS/2

$ perl -MO=Concise,-exec -e'local ($s) = "foo"' 2>&1 | grep assign
7  <2> aassign[t2] vKS
  2. or download this
    $ perl -le'my $x = local  $s  = "foo"; print $x'
foo

$ perl -le'my $x = local ($s) = "foo"; print $x'
1
  3. or download this
    map( { print $_."\n" } @list );  # Block and no comma works.
map( print($_."\n"),   @list );  # Expression with comma works.

map { print $_."\n" } @list;     # Block and no comma works.
map print($_."\n"),   @list;     # Expression with comma works.
  4. or download this
    print "$_\n" for @list;