Whack three! I suddenly remember what it was like to learn Perl the
first time again. Boy do I feel confused. It's starting to work
though. Kinda like the first Perl CGI I wrote about seven years ago.
Probably just as ugly too. Anyone want to join in here, please feel
free!
#!/usr/bin/pugs
print "content-type: text/html\n\n";
my %q = ();
my @q = split '&', %ENV.{'QUERY_STRING'};
for (@q) {
my ($n, $v) = split '=', $_;
decode($n);
decode($v);
if (none(%q.{$n})) { %q.{$n} = [$v] }
else { %q.{$n}.push($v) }
}
for (%q.keys) { say "$_ => "~%q.{$_}.join(', ')~'<br>' }
sub decode($input is rw) {
$input ~~ s:Perl5:g/\+/ /;
$input ~~ s:Perl5:g/%(..)/{chr(:16["0x$0"])}/;
}
--michael
PS Sorry, read the fine print. I'm not Columbian, it was just the
lowest valued denomination I could find. I reckon it comes to about
US$0.41 in total. But, to show what a stand-up guy I am, I will give
you that amount if we ever meet. I'm in London at the moment. Can you
make it?
