Help for this page

Select Code to Download


  1. or download this
    $ perl -wE'for ($|) { local $_; $_ = "abc"; say; }'
Argument "abc" isn't numeric in scalar assignment at -e line 1.
0
  2. or download this
    $ perl -E'$_="x"; @_=(4,5); say $_,@_; local *_; say $_,@_;'
x45
  3. or download this
    $ perl -E'$_="x"; @_=(4,5); say $_,@_; local *_ = \my $a; say $_,@_;'
x45
45