How can I use a text file as a search string?

btobin0 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: How can I use a text file as a search string? by GrandFather (Saint) on Dec 05, 2007 at 09:10 UTC
Maybe you could show us the pertinent part of your "script that I am using on name to search with" and describe how you need to alter it to use the list of names. Perl is environmentally friendly - it saves trees	[reply]
Re: How can I use a text file as a search string? by Gangabass (Vicar) on Dec 05, 2007 at 08:04 UTC
Open your file for reading (`open`), read each line from your file (`while` and `<>`), remove trailing new line character (`chomp`) and search by result string.	[reply] [d/l] [select]
Re^2: How can I use a text file as a search string? by btobin0 (Acolyte) on Dec 05, 2007 at 08:41 UTC
Would I need an open statement for each file or would chomp have a statement to the other file?	[reply]
Re^3: How can I use a text file as a search string? by Gangabass (Vicar) on Dec 05, 2007 at 08:54 UTC
You need open statement for each file.	[reply]
Re: How can I use a text file as a search string? by CountZero (Bishop) on Dec 05, 2007 at 10:25 UTC
An example of the text file you will be using would be handy to show to us as well. CountZero A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James	[reply]
Re: How can I use a text file as a search string? by perlfan (Vicar) on Dec 05, 2007 at 15:11 UTC
If you are searching for literal strings, and don't really need regexs, then you could create a hash, where each name in the .txt file is one you're expecting. To search, you'd just use `exists($hash{$name_to_check})` to see it was in your text file. `my @names_to_check = qw/ bob sue joe /; my %validnames = (); # build lookup while(<>) { chomp; $validnames{$_}++; # also filters dups in .txt } # check names for (@names_to_check) { print "$_ is okay\n" if (exists($validnames{$_})); }` [download] The `<>` of course implies STDIN, so you'd have to redirect or pipe the contents of .txt into the script at the commandline.	[reply] [d/l] [select]
Re^2: How can I use a text file as a search string? by btobin0 (Acolyte) on Dec 06, 2007 at 06:30 UTC
This is what ihave so far. the part that is asking to look for perl. I want to change it to where it looks in a list like a txt or dat file. `open FILE, "/home/btobin/data.txt" \|\| die "Unable to Open: $!"; while (<FILE>) { if ($_ =~ "Perl") { $check = "$_"; } } close FILE; open FILE2, ">>/home/btobin/data2.txt" \|\| die "Unable to Open: $!"; print FILE2 "$check\n"; close FILE2;` [download]	[reply] [d/l]
Re: How can I use a text file as a search string? by dwu (Monk) on Dec 06, 2007 at 06:41 UTC
Help with Search String Reaped: Search Param Help btobin0, please post what looks a lot like one question at once, in one thread, and respond/reply to that (this) thread instead of starting new threads containing amendments/addendums to them. Please also see Writeup Formatting Tips - I see you wrapped your most recent post in `<code>` tags - well done.	[reply] [d/l]


There's more than one way to do things
	PerlMonks