String Zeilenweise durchlaufen

[Patrick Andrieu]

Hallo Perl!

while (<STDIN>) {

^^ War sowieso nicht weiter gedacht von mir: obiges reagiert ja nach jeder Eingabe (auf der Konsole nach jedem Drücken von [ENTER]) ;)

print "$_" . ", WORT2\n" if /^[1]*#{0,0}\bWORT1\b/;

ich kann es nicht gleich ausgeben, da ich falls keine Ersetzung stattgefunden hat, am Ende eine neue Zeile einfügen muss

Hm, das ist aber immer noch unklar. Welche »Ersetzung«? In dem von Dir gezeigten Beispiel bisher, da hast Du nur ein Suchmuster, aber keine Ersetzung...

Ich fasse zusammen, was ich verstanden habe:

WORT2 soll hinzugefügt werden, wenn in einer Zeile WORT1 gefunden wurde.
Die Zeile soll durch WORT1 WORT2 erstezt werden, wenn nichts gefunden wurde.

Korrekt oder liege ich neben der Tastatur? ;)

Viele Grüße aus Frankfurt/Main,
Patrick

---

1. \t ↩︎