B.pm: Amusing bit o' Perl

Jim Meyer Jim.Meyer at disney.com
Thu Aug 12 15:42:23 CDT 1999


Here's an obfuscation that's pretty amusing:

#/usr/bin/perl
<BLINK> ;for (74,1970500640,1634627444,1751478816,1348825708,543711587,
 1801810465){for($x=1<<1^1;$x>=1>>1;$x--) {$q=hex ff,$r=oct($x=~s,\d,$&*
 10,e,$x),$x/=1/.1,$q<<=$r,$s.=chr (($_&$q)>>$r),$t++}}while($= ||= !$|)
 {$o=$o?$?:$/;$|=1;print $o?$s:$"x$t if$;;print"\b"x$t;sleep 1} </BLINK>

...courtesy of Dennis Moore, rainking at feeding.frenzy.com

--j
-- 
Jim Meyer (jim.meyer at disney.com)                My object in life is to unite
Production Software Engineer                    my avocation with my vocation
Walt Disney Feature Animation                 as my two eyes are one in sight
FAN 3450 / x8489-3027 / mc: 8959                               --Robert Frost
----------------------------------------------------------------------------
>> To unsubscribe: send "unsubscribe burbank-pm-list" to majordomo at pm.org <<
>> To get a human's attention: send email to owner-burbank-pm-list at pm.org <<
>>          To become independently wealthy: buy low, sell high.          <<



More information about the Burbank-pm mailing list