Beefy Boxes and Bandwidth Generously Provided by pair Networks vroom
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Re: Re: Re: File::Grep

by Masem (Monsignor)
on Jan 22, 2002 at 20:20 UTC ( #140678=note: print w/ replies, xml ) Need Help??


in reply to Re: Re: Re: File::Grep
in thread File::Grep

Yea, I think that will be a better solution. The only point, after I've opened the file, that I actually care if it's a file is the overall while loop, so as long as I start that loop with an open filehandle or an IO::File object, I can just do the while loop on it:

while ( my $line = <$current_file> ) { ... } # $current_file can be a filehandle or an IO::File obejct # or anything else that responds appropriately in the < > # construct.
Besides making that change, I think I'll also closure-off the internals of that loop; it will be much easier to write the other suggested functions that I put in the desc of this code; in addition, I can see an 'fmap' function and a few other things that as long as I have a function that determines what you do with a line, it doesn't matter what else goes on.

-----------------------------------------------------
Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain
"I can see my house from here!"
It's not what you know, but knowing how to find it if you don't know that's important


Comment on Re: Re: Re: Re: File::Grep
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (13)
As of 2014-04-18 13:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (468 votes), past polls