[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