JAPHs that depend on the version of the module

Following a nice thread in perl5 porters (where you can find the explanation):

perl -lap -0777 -e'BEGIN{close STDIN;require Text::CSV_XS}$F[$#F/6-$=]
+=~s/=b/h/;$_="@F[257,679,435,791]er"'
[download]

Enjoy, Have FUN! H.Merijn

Comment on JAPHs that depend on the version of the module Download Code

Replies are listed 'Best First'.
Re: JAPHs that depend on the version of the module by moritz (Cardinal) on Jul 31, 2008 at 11:35 UTC
I feel it's worth adding that the original JAPH used `-E` instead of `-e`, thus increasing the likeliness the right version of CGI.pm was actually installed.	[reply] [d/l] [select]
Re^2: JAPHs that depend on the version of the module by Tux (Canon) on Jul 31, 2008 at 12:19 UTC
Yes, but that is no guarantee at all, as all my CGI's in 5.10 were newer than that. As I just posted on p5p, here's some more info. For CGI 3.38, the shortest version would be: `perl -lap -0e'BEGIN{close STDIN;require CGI}$_="@F[424,1010,96,16674]"'` CGI has the longest pod from the core .pm's, so getting a success is relatively easy. It also happens to be the only CORE .pm that contains these four words. I found no other modules (even none-CORE) that enable this short version. Close come: POE (1.003) `perl -lap -0e'BEGIN{close STDIN;require POE}$F[2821]=substr$F[2821],-12,6;$_="@F[610,865,2455,2821]"'` XML::Twig 3.32 `perl -lap -0e'BEGIN{close STDIN;require XML::Twig}chop($_="\L@F[653,11676,5,19071]")'` Text::CSV_XS 0.52 (with a bit extra obfuscation) `perl -lap -0e'BEGIN{close STDIN;require Text::CSV_XS}$F[$#F/6-$=]=~s/=b/h/;$_="@F[257,679,435,791]er"'` Enjoy, Have FUN! H.Merijn	[reply] [d/l] [select]
Re^2: JAPHs that depend on the version of the module by ikegami (Patriarch) on Jul 31, 2008 at 13:01 UTC
Only temporarily, as all future Perl 5 will support -E.	[reply]