Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Alien JAPH :)

by trizen (Friar)
on Jan 31, 2012 at 21:08 UTC ( #951069=obfuscated: print w/ replies, xml ) Need Help??

read*DATA,$_,13**+3;y #{} {}{};s>[\s*]+>>g;$i=length;s/ (.{$i})(.)/$2$1/gx while$i--;eval;; ;for(q\just \.q)another),q)perl hacker)){ for(split$!){$_=$$h{$_}?do{$_=$$h{$_};;;;;;;y <A-Za-z0-9+/>/ -_/&&unpack'u',chr(length()*.75+32 ).$_}:$"x$];$w=(sort{$b<=>$a}map+length,split$\=$/) [$]-$]];s/^(.*?)\s*$/sprintf'%-*s',$w,$1/egm;push@f,[ [split$\],$w]}for$x($?..-//+$]){push@{$x[$x]},@{$f[$_][ $?]}?pop@{$f[$_][$?]}:$"x$f[$_][//]for$?..$#f}$s.="@{+pop @x}$/"while@x;$k=$g=chr(ord$^);for(split$\,$s){$s=$g;$$s=$_ ;++$g}$==135;print$w="\e[H","\e[J";{print$w;print$"x$=,$$_? chop$$_:''for$k..$g;select$,,$,,$,,.01;--$=&&redo}}__END__!!! ******C*******w*******X*******y*******X*******o*******f****** igpvAoBLhCffXgIIlyI8gFC8L88vILCg98Io81gaICXpIIg8CIvwFB8I8wXgC vIAgLA,L>8CgCCyywcIiF>L=8LX='CgCLfgvC8wXgXKef9B8CIggvIALKXLCv y>IgXIXg8w1}CA=y8ylAyw=8Cgyffy8loKK88A8f=,II'gfFFwfvgvCAC8yyLIg KXf'''IAX=yiovg>C,8gIAgvAIXFjgCy8Xv89v'XIILy=AC1A8yvov9KvXywffX 8CFyCC9LvfCvF8gg$yv8vALIIILKsKXyvgCI8yfIKF8L,I9C8BiFwfg,A8h8gF' BvgL8C8FfXCC8gB,Iv88AgC8X1CCIFuCX8L>Xi=CCv8ICI8I>KC8IFB8oIFKAvA LvgCIg'wBAFLg'1''f=yLLI'ff'fo9gIA>yFv8FIoy'CLfI8f8vk'y8F=vw>gKf vy8X >KLXgKw'og'vF1By'gBvLIXX8KB'XvA'8vofilg CgC' fyBA 8iLIy8IoIvoC,yg,gI=yC8i'I8gL>8'9{ 8gB> AF18 I8A=vyA'1pfwv,I8lvIABACffIy AyFC 1Avpg Cv'KIyK8C'g9IyFKIL8A=vo yCABX Ffv8A C,9wyIKI,Kn=iXf8wL1w9 8,ygf X88oKC ICII8'F8ILCLy>>If CC8LCy XCAIg CFAwBvCfyAIgIyA BI9'g gyIwL8 lgXIXXXAX8gI8 8IBiyX FXAygA vgoFFFXAggC i,LI>I KIXgt vXCA8prCI gAK=y ****** ********* ****** ******* ******* ******* ******* ******* ******* ******** ***** ******** ********* ***** ********* ********** ***** ********** ************ ******* ************ ******************************************* ***************************************** *************************************** ************************************* ********************************* ******************************* ***************************** ************************* ********************* ***************** ************* *********

Comment on Alien JAPH :)
Download Code
Re: Alien JAPH :)
by jffry (Hermit) on Feb 01, 2012 at 19:43 UTC

    It looks like this will only work on Unix terminals. I have mine set to 132 x 48, but that still doesn't seem wide enough to fit in the animation properly.

    What can I do to run this as you are running it? Perl version, TERM type, etc.

      170 x 10 should be just fine.
      Personally, I use perl v5.14.2 and sakura, but it works in xterm as well.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://951069]
Approved by toolic
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (5)
As of 2014-10-25 01:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (139 votes), past polls