Help for this page

Select Code to Download


  1. or download this
    my @bar = sort{@{$foo->{$a}} cmp @{$foo->{$b}}} @$foo;
    
  2. or download this
    my @bar = sort{$foo->{$a} cmp $foo->{$b}} @$foo;
    
  3. or download this
    $_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H;
    print chr($_-39); # Easy but its ok.