Datei - Zeile springen von Siechfred, 01.06.2007 10:23

Beitrag lesen

Datei - Zeile springen

Siechfred Homepage des Autors 01.06.2007 10:23

while(<LESEN>)
{
if($x == 1) {print "$_";$x=0;next}
if( $_ =~ /BLA(\w+)/) { print "$1 ";$x=1}
}
Wie kann ich das eleganter machen?

Und noch 'ne Variante:

my $pattern = 'BLA(\w+)';  
while(<LESEN>) {  
  next unless /$pattern/;  
  print "$pattern found in line $.: $_";  
}

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.