String Zeilenweise durchlaufen

[Patrick Andrieu]

Hallo!

OK. Quick & Dirty bevor ich heia geh...
Nur einmal getestet und... geht ganz bestimmt eleganter:

  
use strict;  
chomp (my @eingabe = <STDIN>);  
my $check = 0;  
  
  
foreach (@eingabe) {  
  $check++ && next if (/Meerjungfraumann/) # Das wäre WORT1  
}  
if ($check > 0) {  
  foreach my $eingabe (@eingabe) {  
    $eingabe .= " und Blaubarschbube" if ($eingabe =~ /Meerjungfraumann/);  
    print $eingabe, "\n";  
  }  
}  
else {  
  foreach (@eingabe) {  
    print $_, "\n";  
  }  
  print "Und so muss es sein!"; # das wäre WORT1 WORT2  
}  

Wenn »Meerjungfraumann« in der ganzen Eingabe nicht vorkommt, wird am Ende »Und so muss es sein!« eingefügt, wenn aber nur eine Zeile »Meerjungfraumann« enthält, wird dies ergänzt mit " und Blaubarschbube".

Tests. Eingabe 1:

foo
bar
buz

Ausgabe:
foo
bar
buz
Und so muss es sein!

Eingabe 2:

Meerjungfraumann
Patrick Star
Sponge Bob bewundert Meerjungfraumann

Ausgabe:
Meerjungfraumann und Blaubarchbube
Patrick Star
Sponge Bob bewundert Meerjungfraumann und Blaubarschbube

Viele Grüße aus Frankfurt/Main,
Patrick