tail + count

[Mrtlc]

I wrote the following script as a windows tail + count function, 
but it's too slow if the input is huge, how can it be improved?

if (!$ARGV[0]){ 
    die("you've forgotten to enter the file name\n"); 
} 
if (!$ARGV[1]) { 
    $n = 9;           # output 10 rows by default 
} 
else { 
    $n = $ARGV[1]-1; 
} 

open IN, "$ARGV[0]" or die; 

@_ = <IN>; 

foreach my $i(($#_-$n)..$#_){ 
    print $_[$i]; 
} 

close IN; 

$i = $#_+1; 
printf "-------\nTotal # of rows: $i\n"; 


Thanks,
Stan L



--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]