if you want to use a built in function then use

$.

or its alternatives $NR, or $INPUT_LINE_NUMBER

By definition this says "the current input line number of the last file
handle that was read."

my $linect=$.
while ( <FILEHANDLE>) {
      if ( $linect > 9 ) {
            do whatever ...
      }

}

derek



                                                                       
             "John W. Krahn"                                           
             <[EMAIL PROTECTED]                                         
             >                                                          To
                                       Perl Beginners <beginners@perl.org>
             02/14/2005 04:13                                           cc
             PM                                                        
                                                                   Subject
                                       Re: Start reading from a specific
                                       line                            
                                                                       
                                                                       
                                                                       
                                                                       
                                                                       
                                                                       




Eduardo Vázquez Rodríguez wrote:
> Hello Perl Programmers

Hello,

> I have a question regarding openning a file
>
> How can I start reading a file from n line?
>
> For example
>
> I open a File like this way
>
> open(INPUT, $file)
> while (<INPUT>)
> {
>  do something with $_;
> }
>
> But It starts to read from line #1, what I want is that start reading
> exactly from line 10.

Read the first nine lines before the while loop:

open INPUT, $file or die "Cannot open $file: $!";

# get rid of first nine lines
<INPUT> for 1 .. 9;

while ( <INPUT> ) {
    do something with $_;
    }



John
--
use Perl;
program
fulfillment

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>





--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to