[vienna.pm] Suchen und ersetzen...

Peter Seitz seitz at bzs.tu-graz.ac.at
Tue Jun 13 14:40:41 CDT 2000


* * * vienna-pm-list * * *


Hallo Freunde,

ich habe hier ein Unterprogramm, welches mir aus einer Eingabezeile
einen Text extrahiert. Jetzt wuerde ich noch gerne uebergeben, dass
eine bestimmte Zeichenfolge durch eine andere Zeichenfolge uebergeben
wird. Ich habe also folgendes im Unterprogramm geschrieben:

  my ($inputline,$find,$replace) = @_;
  match = "extrahierter String";
#   eval "(\$match =~ s/$find/$replace/g)";
#   $match =~ s/$find/$replace/g;
    $match =~ s/\\"/$replace/g;
    $match =~ s/""/$replace/g;


Im Hauptprogramm steht:

      $docinfo[4] = extract_string($docinfo[4], "\\\"", "\"");

d.h ich moechte die Zeichenfolge _\"_ durch _"_ ersetzen.

Komischerweise hat das s/$find/$replace/g nicht funktioniert, obwohl
die Werte richtig im Unterprogramm ankommen. Auch mit eval habe ich es
nicht geschafft, obiges Problem zu erschlagen.

Ich wuerde mir auch wuenschen, dass ich mehrere Zeichenfolgen eingeen
kann, da ich auch ein _""_ durch _"_ erstzen moechte. Also fuer $find
die Eingabe "(\\\"|\"\")".

Wer weiss hier Rat?


Gruss
               Peter Seitz
      Projektleiter Projekt Woerterbuch
--
Interesse an einem freien deutschen Woerterbuch? Helfer gesucht!
Projekt Woerterbuch: <URL:http://Free-Dict.bzs.tu-graz.ac.at/>
                   
###
You are subscribed to vienna-pm-list as "Peter Seitz" <seitz at bzs.tu-graz.ac.at>
http://www.fff.at/fff/vienna.pm/



More information about the Vienna-pm mailing list