so in der Art?

[Kurt Z]

Hi

ich möchte bei jeder Zeile prüfen, ob ein regulärer Ausdruck passt, wenn er passt, möchte ich am Ende dieser Zeile etwas anhängen
wenn der reguläre Ausdruck bei keiner Zeile zutrifft, möchte ich am Ende etwas einfügen

Sorry die geposteten Beispiele erscheinen mir irgendwie zu kompliziert, $_ ist doch bereits ein Alias auf den laufenden Index!

du willst doch folgendes, oder?

  
  
my $match_flag=0;  
my $pattern="2";  
my $wort2="Anhang Zeile";  
my $wort3="Anhang Datei";  
  
  
my @arr=(<DATA>); #hier knnte STDIN stehen  
for $_ (@arr) {  
  chomp;  
  if (/$pattern/) {  
   $_.="\t".$wort2;  
   $match_flag=1;  
  }  
}  
push (@arr,$wort3) if not ($match_flag); # TIMTOWD unless...  
  
  
# Ausgabe  
$,="\n";  
print @arr;  
  
  
__DATA__  
z1  
z2  
z3  

Gruß
 Kurt