Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Alien JAPH :)

by trizen (Hermit)
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 browsing the Monastery: (6)
As of 2015-07-04 20:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (60 votes), past polls