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;

foo\'bar

foo\\'bar

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem