Leser: 2
![]() |
|< 1 2 >| | ![]() |
14 Einträge, 2 Seiten |
QuoteGanz einfach, sie ist nur bei 8-Bit-Zeichensätzen richtig! ;)
Quotesosum schrieb:
Ich möchte Zeichenketten "sichern", will heissen möchte alle nicht alphabetischen Zeichen oder Zahlen daraus entfernen -und das möglichst effizient.
Quote[quote=sid burn,24.07.2006, 10:52]QuoteGanz einfach, sie ist nur bei 8-Bit-Zeichensätzen richtig! ;)
Wie meinst du das? Wenn ich [a-z] eintippe dann matcht er [a-z] auch bei UTF8.
1
2
3
4
5
6
my $beginstr = "Hallo-'\"%$(\"'Welt";
alle res-Variablen = beginstr;
'tr/c+s' => sub { $res1 =~ tr/a-zA-Z0-9öäüßÄÖÜ/_/c;$res1 =~ s/_//g; },
'tr/cd' => sub { $res2 =~ tr/a-zA-Z0-9öäüßÄÖÜ//cd; },
's' => sub { $res3 =~ s/[^a-zA-Z0-9öäüßÄÖÜ]//g; }
1
2
3
4
Rate s tr/c+s tr/cd
s 1261359/s -- -16% -51%
tr/c+s 1505453/s 19% -- -41%
tr/cd 2566349/s 103% 70% --
![]() |
|< 1 2 >| | ![]() |
14 Einträge, 2 Seiten |