Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

assign a value to $INPUT_LINE_NUMBER

by HYanWong (Acolyte)
on Mar 04, 2013 at 14:21 UTC ( #1021653=perlquestion: print w/replies, xml ) Need Help??
HYanWong has asked for the wisdom of the Perl Monks concerning the following question:

I'm reading my way through a large (18GB) text file, then seeking to the start of the file again for re-reading (I don't want to close and re-open the filehandle).

I'd like to give some feedback about how far through the file I am, so I'm checking the value of $. and printing every millionth line, as a check using unless($. % 1000000). When I seek to the start again, $. is not reset, so different lines are printed. So I'd like to set $.= 0 just before my seek(FILE,0,0). Is assigning to $. considered bad form, or inadvisable? I'd prefer not to use my own variable to keep track of line count - it seem neater to use the built-in one.

Replies are listed 'Best First'.
Re: assign a value to $INPUT_LINE_NUMBER
by choroba (Bishop) on Mar 04, 2013 at 14:38 UTC
    Setting $. when seeking is OK. Sometimes, I even use
    seek $FH, $. = 0, 0;
    لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
Re: assign a value to $INPUT_LINE_NUMBER
by Anonymous Monk on Mar 04, 2013 at 22:50 UTC

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1021653]
Approved by tmharish
Front-paged by davido
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (5)
As of 2018-03-20 01:12 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (247 votes). Check out past polls.