Help for this page

Select Code to Download


  1. or download this
    lanx@nc10-ubuntu:~$ perl -e '$r={a=>1};print %{$r;},"\n"'
a1
...
-e syntax OK
lanx@nc10-ubuntu:~$ perl -e 'print %{ $r={a=>1};$r; },"\n"'
a1
  2. or download this
      DB<100> print " @{ [ 1..10 ] } "
 1 2 3 4 5 6 7 8 9 10
  3. or download this
      DB<106> print " @{ $a++; [1..$a ] } "
 1 
...
 1 2 
  DB<108> print " @{ $a++; [1..$a ] } "
 1 2 3