Nach bestimmter Zeilenzahl splitten?

[Tom]

Hallo Stefan

Ich schlage etwa folgendes Codefragment vor:

<schnipp>

Datei-Handler öffnen

open(SOURCE, "</irgendwo/sourcefile.txt") die;

Variablen definieren

$LineCount = 0;
$MaxLines = 30;
$NewString = "";

Alle Zeilen der Datei durchlaufen, ...

while(<SOURCE>)
{
$NewString .= $_;
$LineCount++;

# ... bis der Schleifenzähler die Zeilengrenze erreicht hat, ...  
if($LineCount >= $MaxLines)  
{  

last; # ... dann Schleifenabbruch
}
}

Weitere Vearbeitung ...

print $NewString;

</schnipp>

Dieser Code ist nicht getestet, sollte jedoch funktionieren.

Mehr Infos zu Schleifen und Schleifenabbrüchen unter: <../../tgce.htm>.

Grüsse
Tom