This runs under Linux, using an obscure trick which I've never seen used before. Using -MO=Deparse won't really help. Anyone interested in providing an analysis?
#!/usr/bin/perl -w
%ENV = qw(
bin 42 perl 52 my 33 opt 26 lib 32 site 25 tmp 34
usr 22 var 62 local 36 other 44 misc 12 temp 45
);
@INC = (
"./opt/usr/usr/tmp/opt",
"/perl/lib/usr/usr/72",
"/perl/lib/usr/tmp/bin",
"/usr/misc/lib/usr/var/lib",
"/my/54/other/bin",
"./tmp/lib/usr/tmp/opt/misc/usr/opt/site",
"/usr/usr/23/misc/usr/usr/lib/lib/usr/usr/var/usr",
"/opt/usr/13/usr/usr/lib/local/24/temp",
"/usr/usr/usr/usr/usr/usr/lib/lib/usr/usr/var/usr",
"/usr/usr/usr/usr/tmp/bin/lib/usr/opt/usr/usr",
"./site/local/site/lib",
"/usr/usr/usr/var/usr/usr",
"/site/tmp/temp/lib",
"/usr/var/var/usr/usr",
"/usr/66/usr/usr/site",
"./usr/usr/tmp/other/lib/usr/opt/site",
"/usr/usr/usr/usr/usr/usr/usr/misc/lib/var/usr",
"/opt/opt/usr/64/other/temp",
"/usr/usr/usr/usr/usr/usr/usr/misc/lib/var/usr/lib/usr/usr",
"/usr/usr/usr/usr/tmp/lib/usr/opt/usr/usr/lib/usr/usr",
);
map { $, = $_; map { $, =~ s/$_/$ENV{$_}/g } (keys %ENV); $_ = $,} @I
+NC;
map { s,^\.,$/, } @INC; map { $; = 101+int($_/5)+($_>14);
map { s,/(\d)(\d),' 'x$1."\e[$;m".'#'x$2."\e[m",eg } $INC[$_] } (0..1
+9);
@INC = ((join $/,@INC),$/);
eval { require "JAPH" };
die
@ARGV=split//,"/:L";
map{print substr crypt($_,ord pop),2,3}qw"PerlyouC READPIPE provides"
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
Outside of code tags, you may need to use entities for some characters:
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.
|
|
