Help for this page

Select Code to Download


  1. or download this
    [family@pedestrian family]$ perl -e '
>   $somehash{foo}{bar}{baz}++;
...
There were 1 occurrances of foo,bar,baz
There were 1 occurrances of quux,wibble,42
[family@pedestrian family]$
  2. or download this
    F:\perl>perl temp.pl
There were 1 occurrances of quux,wibble,42
There were 1 occurrances of foo,bar,baz
  3. or download this
    $;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/