Re^5: simplifying a CGI param request


There's more than one way to do things
	PerlMonks

Re^5: simplifying a CGI param request

by chargrill (Parson)

on Apr 07, 2006 at 18:55 UTC ( [id://541954]=note: print w/replies, xml )

Need Help??

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]

Comment on Re^5: simplifying a CGI param request Select or Download Code

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://541954]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others perusing the Monastery: (5)

As of 2024-04-25 10:31 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found