Re: New Quiz: "What does this code do?" (1-December-2006)

Owen <rcook-iMDvLBO0GCq6c6uEtOJ/[email protected]> Thu, 14 Dec 2006 08:40:46 +1100
Newsgroups gmane.comp.lang.perl.qotw.discuss
Organization Home
Message-ID <[email protected]>
On Fri, 1 Dec 2006 16:35:44 +0200
Shlomi Fish <shlomif-ik1l9ssToec+JF/[email protected]> wrote:

> Hi all!
> 
> Well, it's been a while since we had a quiz so here's another what does this 
> code do quiz:
> 
> {{{{{{
>     my (@list) =
>     (
>         grep { $cgi->param("$prefix$_") }
>         map { /^${prefix}(\d+)$/ ? ($1) : () }
>         $cgi->param()
>     );
> }}}}}}
> 
> $cgi is a CGI.pm instance. (in case you couldn't guess.)
> 
> A friend of mine whose perl is quite rusty had problems understanding this 
> code.
> 
> What does this code do? And can you guess in what context it was used?
> 
> I'll reveal the solution after a 60 hours quota, and until then please send 
> them to me in private.


I have waited 60 hours and more now. Just wondering if there was a follow up to the message because like the friend above, I too have problems understanding what was going on!


TIA


Owen