Nur die ersten 3 Zeilen verarbeiten

[Marcus Vieß]

open(F, '<$dbfile');
@daten = <F>;
close(F);
chomp @daten;
@daten = sort bysecondcol @daten;
foreach $entry (@daten) {
    ($name, $nr) = split(/,/, $entry);
    print '<tr><td><strong><font size=-1>  $name    </font></td>';
    print '<td><strong><font size=-1> $nr </font></strong></td></tr>';
}

Wie kann ich das gute Teil dazu bringen nur die ersten 3 Zeilen einzulesen und zu verarbeiten ? Mhh mit der For schleife richtig ?
Aber wie ???

[Eidgenosse]

Hallo Marcus,

for(my $i=0;$i<3;$i++)
{
    ($name, $nr) = split(/,/, $daten[$i]);
    ...
}

Gruß

Eidgenosse

[Marcus Vieß]

Bin begeistert wie schwer einfach es manchmal sein kann ...
Thanks