I like ugliness

This one makes whitespace important and complains a bit under warnings. It's not my craftiest or most obfuscated to date, but it was fun to do. Like many obfu, this one displays why many of us love Perl, and why some people hate it with a passion -- usually for at least some of the same reasons.

#!/usr/bin/perl
qrvcervefv3qqvkjn7vejndvjqqcvcsjqwnwl3cknwlkc-clcwnwcknc4cwckccw2qwcwd
+ccr.q
tccqwcvt=>%s=(q%hacker%,q)Just)=>q=another=,q!hacker!=>q)Perl),q:anoth
+er:=>
q+Just+,q=Perl==>q$qw.w$,qq#\40#)=>print(qq%$s{hacker}$s{q$qw.w$}$s{Pe
+rl}%.
qq&$s{q$qw.w$}$s{Just}$s{q$qw.w$}$s{another}.\n&)..f.eveevefvknevev.ev
+ckcec
.rvevljknevljefvefv38b3208cn30nccc3n30c8n3c048ncnfn038cn038cn32c08c2nc
+3c3cc
[download]

Christopher E. Stith

Comment on I like ugliness Download Code

Replies are listed 'Best First'.
Re: I like ugliness by maa (Pilgrim) on Dec 24, 2004 at 10:29 UTC
Was the stuff at te start/end just there for decoration (or ugliness) coz it didn't "do" anything? If you bin those bits -w dosen't complain. Noce variety of q() usage, though :-) `#!/usr/bin/perl %s=(q%hacker%,q)Just)=>q=another=,q!hacker!=>q)Perl),q:another:=> q+Just+,q=Perl==>q$qw.w$,qq#\40#)=>print(qq%$s{hacker}$s{q$qw.w$}$s{Pe +rl}%. qq&$s{q$qw.w$}$s{Just}$s{q$qw.w$}$s{another}.\n&)` [download]	[reply] [d/l]
Re^2: I like ugliness by mr_mischief (Monsignor) on Dec 29, 2004 at 14:17 UTC
It's for ugliness and a bit of a distraction from the actual working code. It's fun to include relatively large sections of code that are effectively noops. Christopher E. Stith	[reply]