Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Re: Reading entire file.

by bjelli (Pilgrim)
on May 04, 2001 at 12:13 UTC ( #77899=note: print w/replies, xml ) Need Help??

in reply to Reading entire file.

I'll just latch onto one of your questions:

>Is there an easier way to test and print between two points in a file,

Yes, there is. I tried to explain it in

In your case, I'd recommend you break out of the loop after you're finished with the tool:

while (<FOO_FILE>){ if (/$foo/){ $that = 1; } if (/$bar/){ last; # emergency exit from the loop ;-) } if ($that){ print $_; } }

You could also seperate it into two loops, one for searching for the tool, one for reading the lines for that tool.

while (<FOO_FILE>){ last if /$foo/; # ignore all lines until we find foo } while (<FOO_FILE>){ last if /$bar/; print $_; # do something with the lines we find now } close FOO_FILE; # just ignore the rest of the file
Brigitte    'I never met a chocolate I didnt like'    Jellinek

Replies are listed 'Best First'.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://77899]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (3)
As of 2017-11-18 23:58 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (278 votes). Check out past polls.