Quelltext der Seite Obfuscated Perl Contest

Der '''Obfuscated Perl Contest''' war ein [[Programmierwettbewerb]]. Die Teilnehmer reichten in der [[Programmiersprache]] [[Perl (Programmiersprache)|Perl]] verfasste kurze [[Computerprogramm|Programme]] ein, deren Funktionsweise im [[Quelltext]] auf möglichst kreative Weise verschleiert (englisch: ''obfuscated'') wurde. (Dies ist normalerweise ''nicht'' Ziel bei der Programmierung; siehe aber auch: ''[[Obfuskation (Software)|Obfuskation]]''.)

Wettbewerbe dieser Art, die auch für andere Programmiersprachen veranstaltet werden, dienen vorrangig der Unterhaltung der beteiligten Programmierer und eines interessierten Fachpublikums. Die Erstellung, aber auch die Analyse der Funktionsweise der Wettbewerbsbeiträge ist in der Regel außerordentlich lehrreich; darin besteht – neben dem Unterhaltungswert – der Nutzen solcher Wettbewerbe für die Programmierer der jeweiligen Programmiersprache, und zwar nicht nur für die am Wettbewerb beteiligten.<ref name="Cozens">Simon Cozens: ''Advanced Perl Programming.'' O’Reilly Media, 2005, ISBN 0-596-00456-7, S. 256 ff.</ref>

== Historie ==

Der Wettbewerb wurde erstmals 1996 von Felix S. Gallo in der Fachzeitschrift ''The Perl Journal'' ausgerufen, inspiriert durch den auf die [[C (Programmiersprache)|Programmiersprache C]] bezogenen [[International Obfuscated C Code Contest]]. Er fand danach jährlich statt, im Jahre 2000 zum letzten Mal.<ref name="Cozens" />

Gewinner wurden in vier Kategorien gekürt:

* '''Die beste vierzeilige ''Signature'''''<br />Es gewinnt das beste Programm, dessen Quelltext in 4 Zeilen zu je 76 Zeichen passt (die Größe einer ''[[Signatur (E-Mails und Postings)#Signatur-Programme|Signature]]'').
* '''Das mächtigste Programm'''<br />Es gewinnt das Programm, das den größten Effekt mit dem geringsten Aufwand erzielt (maximal 1024 Bytes).
* '''Das kreativste Programm'''<br />Es gewinnt das Programm mit der verblüffendsten Kombination von Verschleierung und Funktionalität (maximal 2048 Bytes).
* '''Das beste ''The Perl Journal'''''<br />Es gewinnt das beste Programm, das – in der Tradition der „[[Just another Perl hacker]]“-Programme – den Text „''The Perl Journal''“ ausgibt (maximal 2048 Bytes).

Die Beiträge wurden bewertet nach den Kriterien ''Ästhetik'' (des [[Quelltext]]es), ''Output'' (Ausgabe am [[Terminal (Computer)|Terminal]]) und ''Unverständlichkeit'' (im Sinne von maximaler ''Obfuscation''). Jedes Jahr wurde außerdem einem Beitrag der ''Best of Show award'' verliehen. Die Siegerbeiträge wurden im ''Perl Journal'' veröffentlicht (siehe Weblinks).

== Beispiel ==
Nachstehendes Programm von Mark Jason Dominus, ein sogenanntes „[[Just another Perl hacker]] (JAPH)“, gewann den 2.&nbsp;Preis im fünften Obfuscated Perl Contest in der Kategorie „Die beste vierzeilige Signature“. Es erzeugt in unnötig, aber hier gewollt komplizierter Weise die Ausgabe „Just another Perl / Unix hacker“. (Eine ausführliche Erklärung der Funktionsweise ist verfügbar, siehe Weblinks.)

<syntaxhighlight lang="perl">
@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print
</syntaxhighlight>

== Siehe auch ==
* [[Esoterische Programmiersprache]]n – Programmiersprachen, die für maximale Verschleierung entworfen wurden

== Literatur ==
* {{Literatur
   |Autor=Jon Orwant
   |Titel=Games, Diversions & Perl Culture
   |Verlag=O’Reilly Media
   |Datum=2003
   |ISBN=978-0-596-00312-8
   |Kapitel=Kapitel 43 bis 46}}
* {{Literatur
   |Autor=Simon Cozens
   |Titel=Advanced Perl Programming
   |Verlag=O’Reilly Media
   |Datum=2005
   |ISBN=0-596-00456-7}}

== Weblinks ==
* {{Internetquelle
   |url=https://users.soe.ucsc.edu/~michaelm/publications/mateas2-dac2005.pdf
   |titel=A Box, Darkly: Obfuscation, Weird Languages, and Code Aesthetics
   |sprache=en
   |autor=Michael Mateas, Nick Montfort
   |hrsg=[[IT-Universität Kopenhagen]]
   |werk=Proceedings of the 6th Digital Arts and Culture Conference
   |seiten=144–153
   |datum=2005-12
   |zugriff=2015-10-29
   |format=PDF}}

'''Wettbewerbsbeiträge'''

* [http://perl.plover.com/obfuscated/ Das Beispiel oben, mit sehr ausführlichen Erläuterungen] (englisch)
* [http://www.foo.be/docs/tpj/ The Perl Journal] – alle Wettbewerbe (Ausschreibungen und Gewinnerbeiträge) in den bei [http://www.foo.be/ foo.be] archivierten Ausgaben des ''Perl Journal''
* [http://totl.net/PerlContest/ Gewinner eines ersten Preises im ''5. Obfuscated Perl Contest''] – Ausgabe einer Analoguhr mit sich bewegenden Zeigern (englisch)
* [http://www.jmac.org/projects/fall/ Ein Beitrag zum ''2. Obfuscated Perl Contest''] – ein interaktives Bildschirmspiel (englisch)

== Einzelnachweise ==
<references />

[[Kategorie:Perl (Programmiersprache)]]
[[Kategorie:Programmierwettbewerb]]
[[Kategorie:Hacken (Programmierersubkultur)]]
[[Kategorie:Erstverleihung 1996]]