Help for this page

Select Code to Download


  1. or download this
    $ perl -e " @g=( 1 .. 4 ); $f[0]=()=@g; dd\@f; dd\@g "
[4]
[1 .. 4]
  2. or download this
    $ perl -e " @g=( 1 .. 4 ); @f=()=@g; dd\@f; dd\@g "
[]
[1 .. 4]