2012-02-25T20:28:12 perlot

Frage noch an Moritz, Du benutzt folgenden Code.

Code (perl): (dl )

1
2
3
4
5
6
7
8

...
s{([^\0-\177])}{N_escape($1)}eg;
...
sub N_escape {
    my $n = charnames::viacode(ord($_[0]));
    return defined($n) ? "\\N{$n}" : sprintf('\x{%x}', ord($_[0]));
}
...

Wie schafft es der Ersetzungsstring, dass 3 Bytes zu einem Charname aufgelöst werden können, obwohl N_escape() nur zeichenweise abarbeitet.
Magie?