Umlaute ersetzen - #66354 (Allgemeines zu Perl)

betterworld

2003-10-22 13:39

User since
2003-08-21
2613 Artikel
ModeratorIn

user image

[quote=renee,22.10.2003, 10:05]

Code (perl): (dl )

my $string = 'HALLO';
$string = lc($string); # jetzt alles Kleinbuchstaben
$string = 'ÄÖÜäöüß';
$string =~ tr/ÄÖÜäöüß/AOUaous/; # dein 2. Punkt
$string =~ s/[^\d]//g;# Liste der NICHT zuersetzenden Zeichen kannst Du natürlich beliebig erweitern...

[/quote]
Ich wuerde die Reihenfolge aendern:

Code (perl): (dl )

$string = 'ÄÖÜäöüß';
$string =~ tr/ÄÖÜäöüß/AOUaous/; # dein 2. Punkt
$string = lc($string);
$string =~ s/[^\d]//g;

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class