String Zeilenweise durchlaufen

[Perl Anfänger]

Hi!

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/;

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...

ok, ich meinte Anhängen :-)

Ich fasse zusammen, was ich verstanden habe:

WORT2 soll hinzugefügt werden, wenn in einer Zeile WORT1 gefunden wurde.

richtig

Die Zeile soll durch WORT1 WORT2 erstezt werden, wenn nichts gefunden wurde.

leider nein, diese Zeile soll am Ende eingefügt werden, wenn vorher keine Zeile mit WORT1 gefunden wurde

Danke!

---

1. \t ↩︎