String Zeilenweise durchlaufen

[Perl Anfänger]

Hi

Wenn Du <STDIN> als Handle benutzt, dann ist der Weg über ein Array nicht gut. Horst hat Dir den Tipp gegeben, weil er davon ausging, dass Dir ein String mit Zeilenumbrüchen vorliegt, wie:

der übergebene STDIN beinhaltet Zeileumbrüche (\n)

my $str = "Meerjungfraumann\nund Blaubarschbube\nfinden das unsichtbare\nBootmobil nicht";

In deinem Fall würde ich es so lösen:

while (<STDIN>) {
  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

Danke!

---

1. \t ↩︎