Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

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 from...to

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
http://www.horus.com/~bjelli/         http://perlwelt.horus.at


Comment on Re: Reading entire file.
Select or Download Code
Replies are listed 'Best First'.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://77899]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (11)
As of 2015-09-02 19:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred temperature scale is:










    Results (88 votes), past polls