[Perl] unerlaubte Zeichen aus einem String entfernen

[coresploit]

Guten Tag,

ich habe einen Perl-String $str, welcher einige Sonderzeichen enthalten könnte. Ich möchte aber, dass er nur A-Za-z0-9#.-_ enthält. Gibt es eine Möglichkeit, wie ich den String bereinigen kann, dh., alle anderen Zeichen zu entfernen?

Danke.

[hikaru]

Vielleicht so?

Code: Alles auswählen

$str =~ s/[^A-Za-z0-9#\.\-_]//g;

[coresploit]

danke, läuft super!

[nepos]

Dafür ist eigentlich tr// gedacht:

Code: Alles auswählen

$str =~ tr/A-Za-z0-9#.-_//cd;

[coresploit]

Nett, aber jetzt möchte ich natürlich auch noch Akzente von den Buchstaben entfernen. Dafür habe ich sowas hier gebastelt:

Code: Alles auswählen

	# remove accents	
	$str =~ y/ÀÁÂÃÄÅĂĄàáâãäåăą/AAAAAAAAaaaaaaaa/;
	$str =~ y/ÇĆČçćč/CCCccc/;
	$str =~ y/ĎĐďđ/DDdd/;
	$str =~ y/ÈÉÊËĘĚèéêëęě/EEEEEEeeeeee/;
	$str =~ y/Ğğ/Gg/;
	$str =~ y/ÌÍÎÏİìíîïı/IIIIIiiiii/;
	$str =~ y/ĹĽŁĺľł/LLLlll/;
	$str =~ y/ÑŃŇñńň/NNNnnn/;
	$str =~ y/ÒÓÔÕÖØŐòóôõöøő/OOOOOOOooooooo/;
	$str =~ y/ŔŘŕř/RRrr/;
	$str =~ y/ŚŞŠśşš/SSSsss/;
	$str =~ y/ŢŤţť/TTtt/;
	$str =~ y/ÙÚÛŲÜŮŰùúûųüůű/UUUUUUUuuuuuuu/;
	$str =~ y/Ýýÿ/Yyy/;
	$str =~ y/ŹŻŽźżž/ZZZzzz/;

Das funktioniert aber nicht! Ich weiß auch nicht, warum.

EDIT: Gibt es eine Möglichkeit, wie man die Sonderzeichen in die Hexadezimalschreibweise (\x) konvertieren kann?

[chrisbra]

EDIT: Gibt es eine Möglichkeit, wie man die Sonderzeichen in die Hexadezimalschreibweise (\x) konvertieren kann?

So?

Code: Alles auswählen

$ echo 'äöüßabz' | perl -pne 's/[^A-Za-z0-9]/sprintf("%x", ord($&))/eg'
e4f6fcdfabza

[coresploit]

Wie kann ich die Hex-Codes denn dann durch normale Buchstaben ersetzen. Ein Beispiel wäre sehr hilfreich.

Danke.

[chrisbra]

Wie kann ich die Hex-Codes denn dann durch normale Buchstaben ersetzen. Ein Beispiel wäre sehr hilfreich.

Ähm, was genau willst Du denn nun?

[chrisbra]

Nett, aber jetzt möchte ich natürlich auch noch Akzente von den Buchstaben entfernen. Dafür habe ich sowas hier gebastelt:

Das funktioniert aber nicht! Ich weiß auch nicht, warum.

Funktioniert hier übrigens einwandfrei.