Re^5: simplifying a CGI param request

in reply to Re^4: simplifying a CGI param request
in thread simplifying a CGI param request

Or you could sort it thusly:

foreach $key( map { $_->[1] }
              sort { $a->[0] <=> $b->[0] }
              map { m/q(\d+)/; [ $1, $_ ] }
              keys %hash ){
  print "$key : $hash{$key}\n";
}
[download]

(untested)

--chargrill

$,=42;for(34,0,-3,9,-11,11,-17,7,-5){$*.=pack'c'=>$,+=$_}for(reverse s
+plit//=>$*
){$%++?$ %%2?push@C,$_,$":push@c,$_,$":(push@C,$_,$")&&push@c,$"}$C[$#
+C]=$/;($#C
>$#c)?($ c=\@C)&&($ C=\@c):($ c=\@c)&&($C=\@C);$%=$|;for(@$c){print$_^
+$$C[$%++]}
[download]

In Section Seekers of Perl Wisdom