Siechfred: Datei - Zeile springen

Beitrag lesen

aber das liefert noch nicht die naechste zeile.

Jupp, überlesen.

my $pattern = 'BLA(\w+)';  
my $found = 0;  
while(<DATA>) {  
  next if (!/$pattern/ and !$found);  
  print $_ if $found;  
  $found = ($found ? 0 : 1);  
}  
  
__DATA__  
asdfsdf  
BLAafddsfdsfdf  
hier  
asdfsdf  
asdfsdf  
BLAasdfsdfdsf  
dsfdsfdf

Oder so ähnlich ;)

Siechfred

--
Ein Selbständiger ist jemand, der bereit ist, 16 Stunden am Tag zu arbeiten, nur um nicht 8 Stunden für einen Anderen arbeiten zu müssen.