EZ-Pedia

The Easy to use OPEN encyclopedia

Google
 

EZ Pedia » Computers » Programming » Contests » Obfuscated Perl Contest










Description

The Obfuscated Perl Contest is opened to all Perl programmers. They must write a Perl program that must not be easy to understand.

In the Fifth Edition, it was 4 categories: Create A Diversion, from 512 to 2048 bytes; World Wide Wasteland, 512 bytes; Inner Beauty, 512 bytes; and The Old Standby, 256 bytes, that must output "The Perl Journal".

Various examples of all the competitions (the fifth one was assigned in the mid-2000) are on http://www.sysadminmag.com/tpj/obfuscated/.


Category Inner Beauty (512 characters): Fifth Obfuscated Perl Contest winner

This code was written by Christopher Gutteridge. It outputs an ASCII clock, and uses CygWin32.

#!/usr/bin/perl

$;="@{'`|;{'^'!.|-'}";$.++;$.++;$.++;$_="(.)?";/((?{$_.=$_}).)+$/;@_='~!@#$%^&*(
)_+`-=\\{}|;\':",./<>? '=~/$_/;@_ _=$;=~/$_/;$_="(.)*?";/((?{$_.=$_}).)+$/;$Z-=
$Z;"$.$."-$Z;/((?{$_ _}"^"$Z")&&($a.=$_[$x
],$b.=$_,$z++);$x++;$y+=!($x%="$.$.");$y%="$.$.";}).)+/;$_="^"^"^";$_ _=".>.\
'$_ _ _$b')".".('!\@/\"'^'}.')".']}`';

print;


Open Site - Encyclopedia Project

Open Site - Become an Editor