Fascinates the pants off me.
I always wondered how anyone could be so proficient at Unix/Perl that they could write something like this:
| Perl: |
/;{}def/#{def}def/$_={/Times-Bold exch selectfont}#/_{rmoveto}#/"{dup}#/*/!/$
;/q{exch}#/x ; {/J q #}#/.{/T q #}#{stringwidth}#{}#{}# 14 string dup dup dup 260 40 moveto 90 rotate ; %/}};$0='"\e[7m \e[0m"';@ARGV=split//,reverse q(ThePerl). q(Journal) x 220 ; q ; 0 T putinterval exch 7 J putinterval ; ; $_= 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])x50;q} 0 "%};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 {} |
and the output be:
| code: |
ThePerlJournalThePerlJournalThePerlJournalThePerlJournalThePerlJournalThePerl
J l hePerlJou hePerlJourn ThePe ournalThePerlJournalThePerlJou al The erl ournalTheP rlJ urnalThePer Journa ThePerlJournalThePerlJournalTheP rl Jou nal hePer our alT e rl o na ThePer Jo a heP r J rn l ePe our al The erl rn lT eP o rn l eP r Journa T ePe l our a he e Jo rnalT eP rl Jou nal he e ur alTh l ourna Th Per J urn l heP r Journ lTh Pe ur al The erl ou n lTheP rlJo rnal hePer Jo rna T ePe l our a ThePe lJo rn lT eP rl Jou nal he er u lThe l ourn he lJo alT er Jour T e u l ThePerlJournalThePerlJournalThePerlJournalThePerlJournalThePerlJournalThePerl |
Protip: Highlight the code part and squint or, if you run any type of unix (mac included) just copy the code as obfuscated.pl and run it at your command line
