Christian Kruse: macht doch keinen Unsinn!

Beitrag lesen

Hiho,

Nope. Das ist ein JAPH (Just Another Perl Hacker, fuer die Nicht-dclpm-er). Sozusagen
Perl-Lyrik ;-)

Meine Perl-Bücher haben mich den Kram schon FAST durchschauen lassen. Das benutzen
des Special-Token __END__ und des Filehandles <DATA> ist natürlich ziemlich advanced,
der ternäre Operator ? ist auch immer wieder gerne gesehen, und der exzessive Gebrauch von
regulären Ausdrücken hoher Komplexität ist eine relative Gemeinheit für reverse engineering
Versuche.

Wenn du das sagst ;-)

Hast Du Dir das selbst ausgedacht?

Natuerlich. Was denkst du denn? Sowas ist als Kopfnuss zwischendurch immer mal wieder nett ;-)
Aber das von Randall Schwartz ist IMHO viel besser:

$Old_MacDonald = q#print #; $had_a_farm = (q-q:Just another Perl hacker,:-);
s/^/q[Sing it, boys and girls...],$Old_MacDonald.$had_a_farm/eieio;

Aber der eigentliche Grund ist, dass es mir ziemlich auf die Nerven geht, dass ich dauernd
gespammt und geflamed werde.

Gruss,
 C'perl ist geil'K
 http://wwwtech.de

--
s s^s<DATA>se;s (([^\s]))(ord($1)%2?
chr(ord($1)-5):chr(ord($1)-3))sieg;s s^s$_see;
__END__
uwlsy%*Sr%kqdphv%yr%AFN4%dy%zzzyhfm3ihC*1'as'>