Help for this page

Select Code to Download


  1. or download this
    %h = (
 pizza   => { foo => 14, bar => 29 },
...
@keys_sorted_bar_ascn = sort { $h{$a}{bar} <=> $h{$b}{bar} } keys %h;
@keys_sorted_bar_desc = sort { $h{$b}{bar} <=> $h{$a}{bar} } keys %h;
  2. or download this
    2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$