Help for this page

Select Code to Download


  1. or download this
    sub f{
#       10        20        30        40        50        60        70
+        80        90       100       110
#23456789.123456789.123456789.123456789.123456789.123456789.123456789.
+123456789.123456789.123456789.123456789.123
my%r;%i=@_;@{$r{$_}}{map{$_,keys%{$r{$_}}}@{$i{$_}}}=0for(@i=keys%i)x@
+i;sort{keys%{$r{$a}}<=>keys%{$r{$b}}}keys%r
}
  2. or download this
    sub f{
#       10        20        30        40        50        60        70
+        80        90       100       110
#23456789.123456789.123456789.123456789.123456789.123456789.123456789.
+123456789.123456789.123456789.123456789.1
sub Q{keys%{$_[0]}}my%r;%i=@_;@{$r{$_}}{map{$_,Q$r{$_}}@{$i{$_}}}=0for
+(@i=Q\%i)x@i;sort{Q($r{$a})- Q$r{$b}}Q\%r
}