Hide
Solve a problem – Filter by language, license, keyword, owner, or search text to find code & info fast. Join Siafoo Now or Learn More

Just Another Perl / Unix Hacker Atom Feed 0

In Brief This snippet is a famous example of 'perl obfuscation', it won 2nd prize in the 5th annual Obfuscated Perl Contest. It will print the words Just Another Perl / Unix Hacker on the terminal a couple of characters at a time. To see detailed analysis and explanation check out http://perl.plover.com/obfuscated/
# 's
1@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
2@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord
3($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
4close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print

This snippet is a famous example of 'perl obfuscation', it won 2nd prize in the 5th annual Obfuscated Perl Contest. It will print the words Just Another Perl / Unix Hacker on the terminal a couple of characters at a time. To see detailed analysis and explanation check out http://perl.plover.com/obfuscated/