use utf8 und Verhalten von String-Operationen (gelöst) - #150989 (Allgemeines zu Perl)

rosti

2011-08-02 22:03

User since
2011-03-19
3492 Artikel
BenutzerIn

Ahh, danke Dir!!!

Wie immer gibt es Plan B ;)

Code (perl): (dl )

my @len = unpack "U*", $c->param('text'); # CodePoint-Array
my $bytes = pack "U*", @len;              # Zeichen wieder aus Codepoints
printf "Text: %s, Length: %u\, len2: %u, len3: %u, Substr: %s\n", $c->param('text'), length $c->param('text'),
 scalar @len, length $bytes, substr $bytes, 0,1;

Mit 'äöü' getestet, funktioniert bei mir.

Edit: Ergebnis

Text: äöü, Length: 6, len2: 3, len3: 3, Substr: ä
as expected ;)
Last edited: 2011-08-02 22:05:21 +0200 (CEST)