[lug] What language is this? (fwd)
Chip Atkinson
catkinson at circadence.com
Thu Jun 28 13:06:22 MDT 2001
Here's the clincher:
[chip at crossroads bvreports]$ perl -wc mail
mail syntax OK
David Trowbridge wrote:
> Looks like perl to me. The "while(<>)" and "s/q/pack+/g" statements give
> it away. Unless its not?
>
> -David
>
> -------------------
> David Trowbridge
> jupiter at flatirons.org
> http://jupiter.babylonia.flatirons.org
>
> "Base 8 is just like base 10 really...if you're missing two fingers"
> -Tom Lehrer
>
> On Thu, 28 Jun 2001, J. Wayde Allen wrote:
>
>
>> 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
>>
>
>
> _______________________________________________
> Web Page: http://lug.boulder.co.us
> Mailing List: http://lists.lug.boulder.co.us/mailman/listinfo/lug
More information about the LUG
mailing list