4 Einträge, 1 Seite |
pktm+2008-05-14 22:02:08--Gabs da nicht irgedwas mit locale oder so?
1 2 3 4 5 6 7 8 9 10
use strict; use warnings; use utf8; binmode STDOUT, ':utf8'; my $test = "abäc||asÖdß! ü"; my @a = split m/\P{IsAlnum}+/, $test; print "@a\n"; __END__ abäc asÖdß ü
4 Einträge, 1 Seite |