[lug] What language is this? (fwd)

[Riggs, Rob]

That is classic Perl! What textbook did you get that example from?

-----Original Message-----
From: J. Wayde Allen [mailto:wallen at its.bldrdoc.gov]
Sent: Thursday, June 28, 2001 12:56 PM
To: List: Boulder Linux User's Group
Subject: [lug] What language is this? (fwd)



I was just asked what language the following piece of code is written
in?  I thought it looked rather Perlish, but ...

- Wayde
  (wallen at its.bldrdoc.gov)

---------- Forwarded message ----------

s''$/=\2048;while(<>){G=29;R=142;if((@a=unqT="C*",_)[20]&48){D=89;_=unqb24,q
T,@ b=map{ord
qB8,unqb8,qT,_^$a[-D]}@INC;s/...$/1$&/;Q=unqV,qb25,_;H=73;O=$b[4]<<9
|256|$b[3];Q=Q>>8^(P=(E=255)&(Q>>12^Q>>4^Q/8^Q))<<17,O=O>>8^(E&(F=(S=O>>14&7
^O)
^S*8^S<<6))<<9,_=(map{U=_%16orE^=R^=110&(S=(unqT,"\xb\ntd\xbz\x14d")[_/16%8]
);E
^=(72, at z=(64,72,G^=12*(U-2?0:S&17)),H^=_%64?12:0, at z)[_%8]}(16..271))[_]^((D>
>=8
)+=P+(~F&E))for at a[128..$#a]}print+qT, at a}';s/[D-HO-U_]/\$$&/g;s/q/pack+/g;eva
l



_______________________________________________
Web Page:  http://lug.boulder.co.us
Mailing List: http://lists.lug.boulder.co.us/mailman/listinfo/lug