Datei - Zeile springen

[seth]

gudn tach!

Und noch 'ne Variante:

my $pattern = 'BLA(\w+)';

while(<LESEN>) {
  next unless /$pattern/;
  print "$pattern found in line $.: $_";
}

  
hmm, ja, oder halt gleich  
  
~~~perl
my $pattern = 'BLA(\w+)';  
while(<LESEN>){  
  print "$pattern found in line $.: $_" if /$pattern/;  
}

aber das liefert noch nicht die naechste zeile.

prost
seth