Print de 8ste lijn uit een bestand met perl

[Verwijderd]

Ik heb een kort vraagje. Ik wil met perl de 8ste lijn uit een bestand printen. Weet iemand hoe dit mogelijk is? Met bash en sed is het makkelijk namelijk cat /root/rpm51 | sed -n ${COUNT51}p waarbij COUNT51 8 is.

Ik heb hieronder mijn perl programma maar hoe filter ik de 8ste regelnummer

#!/usr/bin/perl
open FILE, "/root/rpm51" or die "Couldn't open rpm51 file: $!";
while (<FILE>){
#print 8ste regel ?????
print ???;
}
close (FILE);

Kan iemand mij a.u.b. helpen

[Verwijderd]

de while( <FILE> ){} loop leest iedere iteratie een regel. Wat je dus moet doen is een counter nemen, die elke iteratie met 1 verhogen.

Bij de achtste regel doe je een "print;" (hoeft geen argument, want hij print automagisch de huidige regel).

[NMe]

Dit spreekt inderdaad redelijk voor zich. Je moet gewoon 8 regels inlezen, waarbij je alleen de laatste afdrukt. Hoe je dat moet doen kun je verder wel in de documentatie opzoeken.