Just another Perl hacker - Versionsgeschichte

Aka: /* Beispiele */ https

2023-04-12T12:37:27Z

Beispiele: https

← Nächstältere Version		Version vom 12. April 2023, 14:37 Uhr
Zeile 32:		Zeile 32:
	;$,++;$^\|=$";`$_$\$,$/$:$;$~$$%[$?]$.$~$${#}$%[$?]$;$\$"$^$~$*.>&$=`</syntaxhighlight>		;$,++;$^\|=$";`$_$\$,$/$:$;$~$$%[$?]$.$~$${#}$%[$?]$;$\$"$^$~$*.>&$=`</syntaxhighlight>

	Nachstehendes Programm von Mark Jason Dominus gewann den 2. Preis im fünften [[Obfuscated Perl Contest]]. Es erzeugt aus dem in den Quellcode eingebetteten rückwärts geschriebenen Text (rechts in der ersten Zeile) in absichtlich komplizierter Weise die Ausgabe „Just another Perl / Unix hacker“.<ref>[~~http~~://perl.plover.com/obfuscated/ Ausführliche Erklärung zum vorletzten Beispiel] (englisch)</ref>		Nachstehendes Programm von Mark Jason Dominus gewann den 2. Preis im fünften [[Obfuscated Perl Contest]]. Es erzeugt aus dem in den Quellcode eingebetteten rückwärts geschriebenen Text (rechts in der ersten Zeile) in absichtlich komplizierter Weise die Ausgabe „Just another Perl / Unix hacker“.<ref>[https://perl.plover.com/obfuscated/ Ausführliche Erklärung zum vorletzten Beispiel] (englisch)</ref>

	<syntaxhighlight lang="perl">@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{		<syntaxhighlight lang="perl">@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
Zeile 39:		Zeile 39:
	close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print</syntaxhighlight>		close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print</syntaxhighlight>

	Das folgende Programm ist ein „[[polyglotte Programmierung\|bilingualer]]“ JAPH: Der Code kann sowohl vom Perl-Interpreter als auch vom Interpreter der [[esoterische Programmiersprache\|esoterischen Programmiersprache]] [[Brainfuck]] ausgeführt werden. Die Ausgabe ist in beiden Fällen „Just another Perl Hacker“. Der große Block mit den Plus- und Minuszeichen ist im Wesentlichen der Brainfuck-Code (mit reduziertem Instruktionssatz), die erste Zeile ist Perl-Code und implementiert einen Brainfuck-Interpreter für ebendiesen reduzierten Satz an Instruktionen.<ref>[~~http~~://~~www.~~retas.de/thomas/computer/programs/useless/japh/japh_2/index.html Kurze Erläuterung zum letzten Beispiel] (englisch)</ref>		Das folgende Programm ist ein „[[polyglotte Programmierung\|bilingualer]]“ JAPH: Der Code kann sowohl vom Perl-Interpreter als auch vom Interpreter der [[esoterische Programmiersprache\|esoterischen Programmiersprache]] [[Brainfuck]] ausgeführt werden. Die Ausgabe ist in beiden Fällen „Just another Perl Hacker“. Der große Block mit den Plus- und Minuszeichen ist im Wesentlichen der Brainfuck-Code (mit reduziertem Instruktionssatz), die erste Zeile ist Perl-Code und implementiert einen Brainfuck-Interpreter für ebendiesen reduzierten Satz an Instruktionen.<ref>[https://retas.de/thomas/computer/programs/useless/japh/japh_2/index.html Kurze Erläuterung zum letzten Beispiel] (englisch)</ref>

	<syntaxhighlight lang="perl">/[+-]/&&eval"\$/$_$_"\|\|/\x2e/&&print chr$/for qw!		<syntaxhighlight lang="perl">/[+-]/&&eval"\$/$_$_"\|\|/\x2e/&&print chr$/for qw!

Magipulus: BKS-Link korrigiert

2020-08-03T19:24:31Z

BKS-Link korrigiert

← Nächstältere Version		Version vom 3. August 2020, 21:24 Uhr
Zeile 5:		Zeile 5:

	== Historie ==		== Historie ==
	Die „Programmierdisziplin“ JAPH wurde vermutlich Anfang der 1990er Jahre durch [[Randal L. Schwartz]] begründet, der bei [[Posting]]s in die [[Newsgroup]] „comp.lang.perl“ (Vorgänger der heutigen Newsgroup „comp.lang.perl.misc“) immer ein JAPH in seine ''[[Signature]]'' integrierte. Auch heute noch werden JAPHs entweder im Rahmen von [[Programmierwettbewerb]]en (z. B. dem [[Obfuscated Perl Contest]]) entwickelt, oder ''just for fun'' – als kreative Fingerübung der Perl-Programmierer.		Die „Programmierdisziplin“ JAPH wurde vermutlich Anfang der 1990er Jahre durch [[Randal L. Schwartz]] begründet, der bei [[Posting]]s in die [[Newsgroup]] „comp.lang.perl“ (Vorgänger der heutigen Newsgroup „comp.lang.perl.misc“) immer ein JAPH in seine ''[[Signatur (E-Mails und Postings)\|Signature]]'' integrierte. Auch heute noch werden JAPHs entweder im Rahmen von [[Programmierwettbewerb]]en (z. B. dem [[Obfuscated Perl Contest]]) entwickelt, oder ''just for fun'' – als kreative Fingerübung der Perl-Programmierer.

	== Beispiele ==		== Beispiele ==

HerrAdams: Klammerzusatz nicht relevant für dieses Thema, ü

2019-04-03T18:55:29Z

Klammerzusatz nicht relevant für dieses Thema, ü

← Nächstältere Version		Version vom 3. April 2019, 20:55 Uhr
Zeile 2:		Zeile 2:

	== Methodik der Verschleierung ==		== Methodik der Verschleierung ==
		⚫	Zum Zweck der Verschleierung ({{enS\|obfuscation}}) wird der [[Quelltext\|Programmcode]] zumeist – unter Ausnutzung auch der abwegigsten syntaktischen Möglichkeiten der Programmiersprache Perl – derart kryptisch formuliert, dass man ihm seine Funktion (die Ausgabe von „Just another Perl hacker“) selbst auf den zweiten Blick kaum ansieht. Nicht selten wird dem Quelltext darüber hinaus durch kreatives Layout ein originelles und für Programmcode völlig untypisches Erscheinungsbild verliehen. Beides dient der Verschleierung der eigentlichen Funktion und/oder der Funktionsweise des Programms, oder gar der Tatsache, dass es sich bei dem vorliegenden Text überhaupt um ein Computerprogramm handelt.

⚫	Zum Zweck der Verschleierung (~~engl. ''Obfuscation''~~) wird der [[Quelltext\|Programmcode]] zumeist – unter Ausnutzung auch der abwegigsten syntaktischen Möglichkeiten der Programmiersprache Perl – derart kryptisch formuliert, dass man ihm seine Funktion (die Ausgabe von „Just another Perl hacker“) selbst auf den zweiten Blick kaum ansieht. Nicht selten wird dem Quelltext darüber hinaus durch kreatives Layout ein originelles und für Programmcode völlig untypisches Erscheinungsbild verliehen. Beides dient der Verschleierung der eigentlichen Funktion und/oder der Funktionsweise des Programms, oder gar der Tatsache, dass es sich bei dem vorliegenden Text überhaupt um ein Computerprogramm handelt.

	== Historie ==		== Historie ==
		⚫	Die „Programmierdisziplin“ JAPH wurde vermutlich Anfang der 1990er Jahre durch [[Randal L. Schwartz]] begründet, der bei [[Posting]]s in die [[Newsgroup]] „comp.lang.perl“ (Vorgänger der heutigen Newsgroup „comp.lang.perl.misc“) immer ein JAPH in seine ''[[Signature]]'' integrierte. Auch heute noch werden JAPHs entweder im Rahmen von [[Programmierwettbewerb]]en (z. B. dem [[Obfuscated Perl Contest]]) entwickelt, oder ''just for fun'' – als kreative Fingerübung der Perl-Programmierer.

⚫	Die „Programmierdisziplin“ JAPH wurde vermutlich Anfang der ~~[[1990]]er~~ Jahre durch [[Randal L. Schwartz]] begründet, der bei [[Posting]]s in die [[Newsgroup]] „comp.lang.perl“ (Vorgänger der heutigen Newsgroup „comp.lang.perl.misc“) immer ein JAPH in seine ''[[Signature]]'' integrierte. ~~(''Signatures'' können auch andere kurze Programme enthalten, wie [http://www.iwriteiam.nl/SigProg.html diese Sammlung] zeigt.)~~ Auch heute noch werden JAPHs entweder im Rahmen von [[Programmierwettbewerb]]en (z. B. dem [[Obfuscated Perl Contest]]) entwickelt, oder ''just for fun'' – als kreative Fingerübung der Perl-Programmierer.

	== Beispiele ==		== Beispiele ==

	Ein Perl-Programm für die Ausgabe von „Just another Perl hacker“ sähe normalerweise so aus:		Ein Perl-Programm für die Ausgabe von „Just another Perl hacker“ sähe normalerweise so aus:

Zeile 82:		Zeile 79:

	== Siehe auch ==		== Siehe auch ==

	* [[Obfuscated Perl Contest]]		* [[Obfuscated Perl Contest]]
	* [[Obfuskation (Software)\|Obfuscator]] – Hilfsmittel zur Verschleierung von Programmen		* [[Obfuskation (Software)\|Obfuscator]] – Hilfsmittel zur Verschleierung von Programmen

	== Weblinks ==		== Weblinks ==
			* Teodor Zlatanov: {{Webarchiv\|url=http://www-128.ibm.com/developerworks/linux/library/l-japh.html \|wayback=20070208125018 \|text=''Cultured Perl: The Elegance of JAPH''}}. In: ''ibm.com'', 1. Juli 2001 (englisch).

	* [~~http~~://www~~-128~~.~~ibm~~.~~com~~/~~developerworks~~/~~linux/library/l-~~japh~~.html~~ ~~''Cultured~~ ~~Perl:~~ ~~The~~ ~~Elegance~~ ~~of JAPH''~~] (englisch)		* [https://www.cpan.org/misc/japh Eine Sammlung von 224 JAPHs] (englisch).
	* [http://www.perl.com/CPAN/misc/japh Eine Sammlung von 224 JAPHs] (englisch)

	== Einzelnachweise ==		== Einzelnachweise ==
	<references />		<references />

	{{DEFAULTSORT:Just Another Perl Hacker}}
	[[Kategorie:Perl (Programmiersprache)]]		[[Kategorie:Perl (Programmiersprache)]]

Joergens.mi: /* Siehe auch */

2019-01-30T07:28:54Z

Siehe auch

← Nächstältere Version		Version vom 30. Januar 2019, 09:28 Uhr
Zeile 84:		Zeile 84:

	* [[Obfuscated Perl Contest]]		* [[Obfuscated Perl Contest]]
	* [[Obfuscator]] – Hilfsmittel zur Verschleierung von Programmen		* [[Obfuskation (Software)\|Obfuscator]] – Hilfsmittel zur Verschleierung von Programmen

	== Weblinks ==		== Weblinks ==

Máel Milscothach: /* Beispiele */ Grammatik, Form

2018-02-26T14:32:20Z

Beispiele: Grammatik, Form

Sargoth: HC: Entferne Kategorie:Hacker (Programmierersubkultur)

2013-12-29T08:05:35Z

HC: Entferne Kategorie:Hacker (Programmierersubkultur)

← Nächstältere Version		Version vom 29. Dezember 2013, 10:05 Uhr
Zeile 96:		Zeile 96:
	{{DEFAULTSORT:Just Another Perl Hacker}}		{{DEFAULTSORT:Just Another Perl Hacker}}
	[[Kategorie:Perl (Programmiersprache)]]		[[Kategorie:Perl (Programmiersprache)]]
	[[Kategorie:Hacker (Programmierersubkultur)]]

Addbot: Bot: 4 Interwiki-Link(s) nach Wikidata (d:q1413365) migriert

2013-04-03T18:02:13Z

Bot: 4 Interwiki-Link(s) nach Wikidata (d:q1413365) migriert

← Nächstältere Version		Version vom 3. April 2013, 20:02 Uhr
Zeile 97:		Zeile 97:
	[[Kategorie:Perl (Programmiersprache)]]		[[Kategorie:Perl (Programmiersprache)]]
	[[Kategorie:Hacker (Programmierersubkultur)]]		[[Kategorie:Hacker (Programmierersubkultur)]]

	[[en:Just another Perl hacker]]
	[[fr:JAPH]]
	[[pl:Just another Perl hacker]]
	[[ru:JAPH]]

Sebbot: :Kategorie:Programmiersprache Perl umbenannt in :Kategorie:Perl (Programmiersprache): Wikipedia:WikiProjekt Kategorien/Diskussionen/2013/Februar/1 - Vorherige Bearbeitung: 14.11.2012 21:33:56

2013-02-14T15:59:00Z

Kategorie:Programmiersprache Perl umbenannt in Kategorie:Perl (Programmiersprache): Wikipedia:WikiProjekt Kategorien/Diskussionen/2013/Februar/1 - Vorherige Bearbeitung: 14.11.2012 21:33:56

← Nächstältere Version		Version vom 14. Februar 2013, 17:59 Uhr
Zeile 95:		Zeile 95:

	{{DEFAULTSORT:Just Another Perl Hacker}}		{{DEFAULTSORT:Just Another Perl Hacker}}
	[[Kategorie:~~Programmiersprache~~ Perl]]		[[Kategorie:Perl (Programmiersprache)]]
	[[Kategorie:Hacker (Programmierersubkultur)]]		[[Kategorie:Hacker (Programmierersubkultur)]]

Soebe: Änderungen von 87.78.33.202 (Diskussion) wurden auf die letzte Version von Mosmas zurückgesetzt

2012-11-14T20:33:56Z

Änderungen von 87.78.33.202 (Diskussion) wurden auf die letzte Version von Mosmas zurückgesetzt

← Nächstältere Version		Version vom 14. November 2012, 22:33 Uhr
Zeile 1:		Zeile 1:
	'''Just another Perl hacker''' (abgekürzt '''JAPH''') steht für ein in der [[Programmiersprache]] [[Perl (Programmiersprache)\|Perl]] geschriebenes kurzes [[Computerprogramm]], das lediglich den Text „Just another Perl ~~hacker,“~~ ausgibt, seine Funktionsweise im [[Quelltext]] dabei aber möglichst wirkungsvoll verschleiert. Ein solches Programm dient experimentellen Zwecken sowie der Unterhaltung der Programmierer und hat darüber hinaus keinerlei praktischen Nutzen, obgleich die Analyse der Funktionsweise eines JAPHs für Perl-Programmierer außerordentlich lehrreich sein kann.		'''Just another Perl hacker''' (abgekürzt '''JAPH''') steht für ein in der [[Programmiersprache]] [[Perl (Programmiersprache)\|Perl]] geschriebenes kurzes [[Computerprogramm]], das lediglich den Text „Just another Perl hacker“ ausgibt, seine Funktionsweise im [[Quelltext]] dabei aber möglichst wirkungsvoll verschleiert. Ein solches Programm dient experimentellen Zwecken sowie der Unterhaltung der Programmierer und hat darüber hinaus keinerlei praktischen Nutzen, obgleich die Analyse der Funktionsweise eines JAPHs für Perl-Programmierer außerordentlich lehrreich sein kann.

	== Methodik der Verschleierung ==		== Methodik der Verschleierung ==

87.78.33.202: Das Komma hinter "Just another Perl hacker" gehört tatsächlich zur Aufgabenstellung dazu

2012-11-14T20:32:04Z

Das Komma hinter "Just another Perl hacker" gehört tatsächlich zur Aufgabenstellung dazu

← Nächstältere Version		Version vom 14. November 2012, 22:32 Uhr
Zeile 1:		Zeile 1:
	'''Just another Perl hacker''' (abgekürzt '''JAPH''') steht für ein in der [[Programmiersprache]] [[Perl (Programmiersprache)\|Perl]] geschriebenes kurzes [[Computerprogramm]], das lediglich den Text „Just another Perl ~~hacker“~~ ausgibt, seine Funktionsweise im [[Quelltext]] dabei aber möglichst wirkungsvoll verschleiert. Ein solches Programm dient experimentellen Zwecken sowie der Unterhaltung der Programmierer und hat darüber hinaus keinerlei praktischen Nutzen, obgleich die Analyse der Funktionsweise eines JAPHs für Perl-Programmierer außerordentlich lehrreich sein kann.		'''Just another Perl hacker''' (abgekürzt '''JAPH''') steht für ein in der [[Programmiersprache]] [[Perl (Programmiersprache)\|Perl]] geschriebenes kurzes [[Computerprogramm]], das lediglich den Text „Just another Perl hacker,“ ausgibt, seine Funktionsweise im [[Quelltext]] dabei aber möglichst wirkungsvoll verschleiert. Ein solches Programm dient experimentellen Zwecken sowie der Unterhaltung der Programmierer und hat darüber hinaus keinerlei praktischen Nutzen, obgleich die Analyse der Funktionsweise eines JAPHs für Perl-Programmierer außerordentlich lehrreich sein kann.

	== Methodik der Verschleierung ==		== Methodik der Verschleierung ==

← Nächstältere Version		Version vom 26. Februar 2018, 16:32 Uhr
Zeile 15:		Zeile 15:
	<syntaxhighlight lang="perl">print "Just another Perl hacker";</syntaxhighlight>		<syntaxhighlight lang="perl">print "Just another Perl hacker";</syntaxhighlight>

	Verschleierung (''Obfuscation'') kann beispielsweise erreicht werden durch Einbinden dieser – an sich verständlichen – Anweisung in ~~sehr~~ undurchsichtigen ~~aber an sich~~ funktionslosen Code:		Verschleierung (''Obfuscation'') kann beispielsweise erreicht werden durch Einbinden dieser – an sich verständlichen – Anweisung in undurchsichtigen und funktionslosen Code:

	<syntaxhighlight lang="perl">$_='987;s/^(\d+)/$1-1/e;$1?eval:print"Just another Perl hacker"';eval;</syntaxhighlight>		<syntaxhighlight lang="perl">$_='987;s/^(\d+)/$1-1/e;$1?eval:print"Just another Perl hacker"';eval;</syntaxhighlight>

	Ein JAPH kann auch wie purer Datenmüll aussehen, obwohl ~~dieser~~ tatsächlich sowohl die auszugebenden Zeichen als auch den Code für deren Ausgabe enthält. In diesem Fall wurde der auszugebende Code durcheinandergewürfelt und der Perl-Einzeiler sortiert den Text zur Ausgabe wieder zurück:		Ein JAPH kann auch wie purer Datenmüll aussehen, obwohl er tatsächlich sowohl die auszugebenden Zeichen als auch den Code für deren Ausgabe enthält. In diesem Fall wurde der auszugebende Code durcheinandergewürfelt und der Perl-Einzeiler sortiert den Text zur Ausgabe wieder zurück:

	<syntaxhighlight lang="perl">$_="krJhruaesrltre c a cnp,ohet";$_.=$1,print$2while s/(..)(.)//;</syntaxhighlight>		<syntaxhighlight lang="perl">$_="krJhruaesrltre c a cnp,ohet";$_.=$1,print$2while s/(..)(.)//;</syntaxhighlight>

	Manche JAPHs sind weniger schwer verständlich, scheinen aber einem gänzlich anderen Zweck zu dienen als der Ausgabe von „Just another Perl hacker“. Beim folgenden Beispiel von [[Randal L. Schwartz]] wurde der auszugebende Text mit einem festen Textstring umcodiert. Der Einzeiler macht lediglich die Umcodierung rückgängig:		Manche JAPHs sind weniger schwer verständlich, scheinen aber einem gänzlich anderen Zweck zu dienen als der Ausgabe von „Just another Perl hacker“. Beim folgenden Beispiel von Randal L. Schwartz wurde der auszugebende Text mit einem festen Textstring umcodiert. Der Einzeiler macht lediglich die Umcodierung rückgängig:

	<syntaxhighlight lang="perl">$_ = "wftedskaebjgdpjgidbsmnjgc";		<syntaxhighlight lang="perl">$_ = "wftedskaebjgdpjgidbsmnjgc";
	tr/a-z/oh, turtleneck Phrase Jar!/; print;</syntaxhighlight>		tr/a-z/oh, turtleneck Phrase Jar!/; print;</syntaxhighlight>

	Das folgende JAPH-Programm von Eric Roode besteht ''ausschließlich'' aus Sonderzeichen; [[alphanumerische Zeichen]] und [[Leerraum]] fehlen gänzlich. ~~(Hinweis: dieses JAPH ist nur unter [[Unix]] lauffähig.)~~		Das folgende, nur unter [[Unix]] lauffähige JAPH-Programm von Eric Roode besteht ''ausschließlich'' aus Sonderzeichen; [[alphanumerische Zeichen]] und [[Leerraum]] fehlen gänzlich.

	<syntaxhighlight lang="perl">`$=`;$_=\%!;($_)=/(.)/;$==++$\|;($.,$/,$,,$\,$",$;,$^,$#,$~,$*,$:,@%)=(		<syntaxhighlight lang="perl">`$=`;$_=\%!;($_)=/(.)/;$==++$\|;($.,$/,$,,$\,$",$;,$^,$#,$~,$*,$:,@%)=(
Zeile 35:		Zeile 35:
	;$,++;$^\|=$";`$_$\$,$/$:$;$~$$%[$?]$.$~$${#}$%[$?]$;$\$"$^$~$*.>&$=`</syntaxhighlight>		;$,++;$^\|=$";`$_$\$,$/$:$;$~$$%[$?]$.$~$${#}$%[$?]$;$\$"$^$~$*.>&$=`</syntaxhighlight>

	Nachstehendes Programm von Mark Jason Dominus gewann den 2. Preis im fünften [[Obfuscated Perl Contest]]. Es erzeugt aus dem in den Quellcode eingebetteten, rückwärts geschriebenen Text (rechts in der ersten Zeile) in absichtlich komplizierter Weise die Ausgabe „Just another Perl / Unix hacker“.<ref>[http://perl.plover.com/obfuscated/ Ausführliche Erklärung zum vorletzten Beispiel] (englisch)</ref>		Nachstehendes Programm von Mark Jason Dominus gewann den 2. Preis im fünften [[Obfuscated Perl Contest]]. Es erzeugt aus dem in den Quellcode eingebetteten rückwärts geschriebenen Text (rechts in der ersten Zeile) in absichtlich komplizierter Weise die Ausgabe „Just another Perl / Unix hacker“.<ref>[http://perl.plover.com/obfuscated/ Ausführliche Erklärung zum vorletzten Beispiel] (englisch)</ref>

	<syntaxhighlight lang="perl">@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{		<syntaxhighlight lang="perl">@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
Zeile 42:		Zeile 42:
	close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print</syntaxhighlight>		close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print</syntaxhighlight>

	Das folgende Programm ist ein „[[polyglotte Programmierung\|bilingualer]]“ JAPH: ~~der~~ Code kann sowohl vom Perl-Interpreter, als auch vom Interpreter der [[esoterische Programmiersprache\|esoterischen Programmiersprache]] [[Brainfuck]] ausgeführt werden. Die Ausgabe ist in beiden Fällen „Just another Perl Hacker“. ~~Zur Funktionsweise: der~~ große Block mit den Plus- und Minuszeichen ist im Wesentlichen der Brainfuck-Code (mit reduziertem Instruktionssatz), die erste Zeile ist Perl-Code und implementiert einen Brainfuck-Interpreter für ebendiesen reduzierten Satz an Instruktionen.<ref>[http://www.retas.de/thomas/computer/programs/useless/japh/japh_2/index.html Kurze Erläuterung zum letzten Beispiel] (englisch)</ref>		Das folgende Programm ist ein „[[polyglotte Programmierung\|bilingualer]]“ JAPH: Der Code kann sowohl vom Perl-Interpreter als auch vom Interpreter der [[esoterische Programmiersprache\|esoterischen Programmiersprache]] [[Brainfuck]] ausgeführt werden. Die Ausgabe ist in beiden Fällen „Just another Perl Hacker“. Der große Block mit den Plus- und Minuszeichen ist im Wesentlichen der Brainfuck-Code (mit reduziertem Instruktionssatz), die erste Zeile ist Perl-Code und implementiert einen Brainfuck-Interpreter für ebendiesen reduzierten Satz an Instruktionen.<ref>[http://www.retas.de/thomas/computer/programs/useless/japh/japh_2/index.html Kurze Erläuterung zum letzten Beispiel] (englisch)</ref>

	<syntaxhighlight lang="perl">/[+-]/&&eval"\$/$_$_"\|\|/\x2e/&&print chr$/for qw!		<syntaxhighlight lang="perl">/[+-]/&&eval"\$/$_$_"\|\|/\x2e/&&print chr$/for qw!