Help with script to search all files for certain words.

[theninja]

Hi I am having a hellofa time converting my shell script to a perl script. I am hoping to find some direction. The shell script basically searchs the system for all files and checks them for certain words, then pipes the output to a file, then strips out "fale-positive" results, and sends results to a file, then emails and ftp's file. On the perl side what I am having trouble with is the "grep"ing of the words out of the files. In the shell script I do this by

while read words.dat
do
find . -type f | xargs grep -i "${words.dat}=" 2>/dev/null >> out.log
done < words.dat

this gives me the list of files that contain the word(s) in words.dat. I can get perl to work if I use each word individualy like this...

@find = `find . -type f | xargs grep -i  sales= 2>/dev/null`;
@find = `find . -type f | xargs grep -i  price= 2>/dev/null`;
@find = `find . -type f | xargs grep -i  invoice= 2>/dev/null`;

but I need to feed it a list of words in a file. How can I do this? thanks

[roboticus]

Most greps have an option to give a filename containing a list of strings to search for, so use that. Since you're using words rather than patterns, use the fixed strings option as well:

find blah blah blah | xargs grep -i --fixed-strings --file=words.dat

...roboticus

When your only tool is a hammer, all problems look like your thumb.

[afoken]

find blah blah blah | xargs grep -i --fixed-strings --file=words.dat

Change that to ...

find blah blah blah -print0 | xargs -0 grep -i --fixed-strings --file=
+words.dat

... and problems with "funny" filenames are gone.

Alexander

[mikeraz]

What have you tried?

Perl's search operator can do or operations.

   while(<INFILE>) {
       if(/(sales|price|invoice)=/) {
            # do stuff
       }
   }

[philipbailey]

Something like this?

#!/usr/bin/perl

use strict;
use warnings;

use File::Find;

my $re = get_re();
my @dirs = qw/./;

find(\&wanted, @dirs);


sub wanted {
    return unless -f $_;

    open my $fh, "<", $_ or warn "Couldn't open $_: $!\n";

    while (<$fh>) {
        print "$File::Find::name:$_" if /$re/;
    }
}

sub get_re {
    my @words;

    while(<DATA>) {
        chomp;
        push @words, $_;
    }
    return join '|', map { "$_=" } @words;
}


__DATA__
sales
price
invoice

[eff_i_g]

Perhaps a combination of File::Grep and Regexp::Assemble will do the trick? If File::Grep isn't to your liking I suggest File::Find::Rule.