The Best Ever: Perl 2/4

Initialisation steps

We can now start to read the actual code:

$0 = '"\e[7m \e[0m"';
@ARGV = split //, reverse q(ThePerl) . q(Journal) x 220;
q ; 0 T putinterval exch 7 J putinterval ;; # string in void context
$_ = q /m$ pop T($*!$"=!$ " )pop " * true% ? $ " $!" "  !!  !! % !" !"    !
! charpath {!"""}pop $ pop{""!}pop ! neg{!#}pop 220 ! neg _{!!}pop J false %T
charpath  clip " pop 0 " moveto 6{!!}pop $_= 105{!!}pop {$ ! $ " !  #! ##}
pop{dup dup $ ! " pop pop q{"}pop 22{dup show}repeat {"}pop q 22 mul{$ "} pop
neg{!#! $ "}pop ! 8 .65 mul{$ # # $}pop ! neg{"}pop  _ pop{"}pop } repeat pop
" {  $ " ! ! ! $ " ! !" "#"  #"!"""""! #" " # "m/;
@ARGV = ( @ARGV[ -14 .. -1 ] ) x 50;
q}
 0 "%};          # another string in void context
s/m[ou]|[-\dA-ln-z.\n_{}]|\$_=//gx;
s/(.)(?{$*=''})/('$*.='.(++$#%2?'':"$0;").'pop;')x(ord($1)-31).'$*'/gee;
s/((.(\e\[.m)*|.){77})/$1\n/g;
print;
sub showpage { } # we don't need you, you PostScript operator you

$0 is now an ANSI reverse-video space character.
@ARGV is qw/ l a n r u o J <220 times> l a n r u o J l e r P /. This is actually a bug (I mixed up my precedence rules...). Corrected later on.
A string in void context. Let's ignore it now. For good.
$_ is set to a very long string of characters.

More exactly this string (whitespace does matter):

m$  ($*!$"=!$ " ) " * % ? $ " $!" "  !!  !! % !" !"    !!  !""" $ ""! ! !#  !  !!   %   "   "  !!  !! $ ! $ " !  #! ##  $ ! "   "   "   $ " !#! $ " !   $ # # $ ! "   "   "   $ " ! ! ! $ " ! !" "#"  #"!"""""! #" " # "m

@ARGV is now fixed, and equal to a long list of the characters we want to print (fifty times qw/ l a n r u o J l e r P /).

Previous | Next