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

Re: Search List

by l3v3l (Monk)
on Dec 20, 2005 at 18:00 UTC ( #518137=note: print w/replies, xml ) Need Help??


in reply to Search List

just a quick stab at this one :
perl -e 'chomp(@l=(<*>));open(FH,"<test.txt") or die;while(<FH>){for $ +w(@l){/\b$w\b/ ? print: next}}'
does this do all that you want? or is there a chance that you would need to manipulate/search through more than one line at a time?

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (6)
As of 2022-05-18 09:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you prefer to work remotely?



    Results (70 votes). Check out past polls.

    Notices?