[vienna.pm] Suchen/Ersetzen Problem
roland.bauer at fff.at
roland.bauer at fff.at
Thu Aug 5 00:23:34 CDT 2004
* * * vienna-pm-list * * *
Mit quotemeta geht's.
Roland
#######################################
#!/usr/bin/perl -w
use strict;
while (<DATA>) {
chomp;
my $translate = quotemeta $_; # <<<< quotemeta
my $replace = <DATA>;
chomp($replace);
print "source:'$translate'\n";
print "transl:'$replace'\n";
s/$translate/$replace/;
# my $repl = qr/$replace/;
# $_ =~ s/$find/$repl/;
print "-->$_<--\n";
}
__DATA__
&Invert selected items
AusgewSigmahlte EintrSigmage &invertieren
&Mark messages as read\tCtrl+R
Als &gelesen markieren\tStrg+R
##################################
---------------------------------------------
This message was sent using Endymion MailMan.
http://www.endymion.com/products/mailman/
###
You are subscribed to vienna-pm-list as roland.bauer at fff.at
http://www.fff.at/fff/vienna.pm/
More information about the Vienna-pm
mailing list