Help for this page

Select Code to Download


  1. or download this
    $ perl -MO=Deparse,-p -e " $foo = 1, 2; "
(($foo = 1), '???');
-e syntax OK
  2. or download this
    $ perl -MO=Deparse,-p -e " $one, $two = 1, 2; "
($one, ($two = 1), '???');
-e syntax OK
  3. or download this
    $ perl -MO=Deparse,-p -e " sub foo { 1, 2 } $one, $two = foo(); "
sub foo {
    (1, 2);
}
($one, ($two = foo()));
-e syntax OK