Grep arrays

[nickawesome07]

I am having an issue with using the input from an array(file) to grep through another array(file). Heres what I have so far. Thanks in advance. I am attempting to use the 'list' as the criteria to grep through file.csv and put each successful find into a report. Thanks in advance.

open(MYINPUTFILE, "<list");
foreach(<MYINPUTFILE>) {
my $out = `grep -i "$_" /home/file.csv`;
open(OUTPUT, ">>/tmp/file.report");
print OUTPUT "$out\n";
}
close(MYINPUTFILE);
close(OUTPUT);

Dave thank you for the fast reply, Essentially the list size is 567 lines, the file.csv size is 6436. When the code is run the output is 3.6 million lines. Thanks in advance. The "list" are email addresses, and the file.csv is a list of email addresses. So there can only be 567 matches. Thanks in advance.

[davido]

One issue is opening the output file inside the loop and closing it outside the loop. Move the 'open' to before the loop. Also at the top of your script place the following line:  use autodie;.

But to give an effective answer to your question we would need to know how the code you posted is failing, as well as see a brief sample of the input files. Phrasing it in the form of a question may add clarity as well.

[CountZero]

Of course we have not yet seen the formats of your input files, but I'd do something along the following lines:

use Modern::Perl;
use Regexp::Assemble;

# first we make one big regex.
my $ra = Regexp::Assemble->new;
$ra->add(<DATA>);
say $ra->as_string;    # to see how the regex looks
my $regexp = $ra->re;

open my $HOMEFILE, '<', '/home/file.csv';
open my $OUTPUT,   '>', '/tmp/file.report';
while (<$HOMEFILE>) {
    /$regexp/ and say $OUTPUT "Something in [$_] matched";
}

__DATA__
[e-mail]
[e-mail]
[e-mail]
[e-mail]

Of course you will need to add some dies to check all your files opened properly. or use autodie to save you the hassle.

[Anonymous Monk]

And the problem is?