Hi @all,
gibt es in perl eine funktion um anführungszeichen und doppelte anführungszeichen ( ' und ") zu ersetzen oder auszukommentieren?

so was wie in php addslashes();

oder etwas vergleichbares?

gruß mathi

schau mal quotemeta

Aus welchem Grund willst Du das einsetzen? Wenn Du damit Zeichen für ein SQL-Statement quoten willst, solltest Du Dir lieber die ?-Notation und/oder die Methode quote von DBI anschauen.

Wenn Du Sonderzeichen für die Shell quoten willst, dann schau Dir die Perl-interne Funktion quotemeta an.

Diese beiden Sachen sind wesentlich sicherer als alles von Hand zu machen.

Wenn Du es dennoch per Hand machen willst:

renee+2008-09-03 15:24:31--

Wenn Du es dennoch per Hand machen willst:

Code (perl): (dl )

1
2
3

my $text = qq~dies ' ist ein ' "" test~;
$text =~ s/(['"])/\\$1/g;
print $text;

nur dass damm bei der eingabe von

das hier rauskommt:

danke erst mal,
ich brauch das für ein SQL-Statement.

aber von perl hab ich keine ahnung...
gerade mal das ich die übergebenen variablen definieren kann und mit hilfe des internets einen sql eintrag erstellen konnte.


wie functioniert denn die ?-Notation und/oder die Methode quote von dbi?

ich habe einfach nur die variable $bemerkungen die in eine datenbank soll.

Gruß Mathi

Gast+2008-09-03 21:18:47--

wie functioniert denn die ?-Notation und/oder die Methode quote von dbi?

DbiPlatzhalter

Danke an alle, ich habs hinbekommen.