Nachtrag

[Perl Anfänger]

Hi

sorry, dass das zuwenig Informationen waren!

bis jetzt habe ich folgenden Code

my @stdin = <STDIN>;

my $i;
for ($i = 0; $i < @stdin; $i++){
  $stdin[$i] = $stdin[$i] . ",WORT2\n" if($stdin[$i] =~ /^[1]*#{0,0}\bWORT1\b/ );
}
$stdin[$i] = qq~WORT1 WORT2\n~;

...

for ($i = 0; $i < @stdin; $i++){
  print $stdin[$i];
}

ich hab vergessen zu sagen, dass ich noch das Problem habe, dass wenn das WORT1 gefunden wurde, das Wort WORT2 hintendran gehängt wird, Aber... davor ist wohl ein \n, wodurch das WORT2 in einer neuen Zeile geschrieben wird

Desweiteren habe ich das Problem, dass "$stdin[$i] = qq~WORT1 WORT2\n~;" nur am Ende eingefügt werden soll, wenn vorher der reguläre Ausdruck auf keine Zeile gepasst hat

Danke!

---

1. \t ↩︎