» About     » Archive     » Submit     » Authors     » Search     » Random     » Specials     » Statistics     » Forum     » Facebook     » RSS Feed     Updates Daily

No. 531: Garfield plus obfuscated perl code minus Garfield

First | Previous | 2010-11-01 | Next | Latest

Garfield plus obfuscated perl code minus Garfield

First | Previous | 2010-11-01 | Next | Latest

Strip by: Bill Gilliland

#! /usr/bin/perl
for(split q,,,q,CCCCCCCCx<4444445x<4444445x<4444445x<4444445x<4444445x<4,.
q,444445x<4444445x<4444445x<4444445x<4444445x<4444445x<4444445x<4444445x,.
q,<4444445x<4444445x<4444445x<4444445x<4444445x<4444445x<4444445x<444444,.
q,5x<4444445x<4444445x<4444445x<4444445x<4444445x<4444445x<4444445x<4444,.
q,445x<4444445xCCCCCCCCxx,){if($i=4,/x/x){print"\n"}else{$x=-52+ord;while(
$i--){if(1<<$i<=$x){print'•';$x-=2**$i}else{print' '}}}}

The author writes:

And here is the obligatory follow-up submission.

And here's the codepad link to the output.