Datei - Zeile springen

[steckl]

Hi,

while(<DATA>) {

next if (!/$pattern/);
my $next = <DATA>
print $1, $next;
}

  
  

> Danke.  
> Was ich aber nicht verstehe ist, wieso in der Variable $next die nächste Zeile und nicht die aktuelle Zeile drin ist?  
  
Mit <DATA> liest du immer die naechste Zeile aus dem File aus. Wenn das pattern nicht passt wird mit next wieder zum Schleifenanfang gesprungen und hier die naechste Zeile ausgelesen.  
Wenn es passt wird die Zeile "my $next = <DATA>;" aufgerufen. Hier wird die naechste Zeile des Files in die Variable $next geschrieben.  
  
Hoffe das ist so verstaendlich fuer dich.  
  
mfG,  
steckl