JAPH

[Christian Kruse]

Hallo Thomas,

In der Tat, da kennt jemand Perl _sehr_ genau. Cool. Wer ist der
Autor?

Abigail.

Ah, haette ich mir denken koennen.

hier findest du noch mehr beispiele: http://www.cpan.org/misc/japh

Jepp, kannte ich schon :-)

ich hab den code auch mal ein bisschen umgeschrieben:

$_ = '4a75737420616e6f74686572205065726c204861636b65720a';
for ($* = 1; $* *= 1; $* *= 1)
    {
    $* *= 1 * s|..|qq/print chr 0x$& and q qq/|excess * 1
    }

aber warum sind 6 * ein 1? hat das was mit einem path zu tun?

Nein, das hat was mit etwas ganz anderem zu tun :-) Sorry, hatte
ich vergessen zu erwaehnen.

****** wird vom Tokenizer in einen solchen Baum zerteilt:

**
   /  \   *    *
  |    |
  *    *

Der **-Operator ist der Potenz-Operator. Der * zeigt einen Typeglob
an. Und das Ziel des Typeglobs ist *. ****** ist also das gleiche wie

*main::* ** *main::*

waehrend $* *= ****** das gleiche ist wie

$* *= *main::* ** *main::*

Und damit ist der erste Ausdruck synonym mit $* = 1 und der zweite
Ausdruck synonym mit $* *= 1. Damit duerfte es dir auch Moeglich
sein, den zweiten Ausdruck mit dem s/// zu verstehen und
auszuwerten.

Grüße,
 CK