Re: error message txtFile comparison with output in another txtfile

[BaldPenguin]

You don't have a $gen declared only an array, @result and @final are not declared, try:

use List::Compare;
use strict;
open (GEN, "general.txt")||die("general.txt File cannot open\n");
open (SEA, "search.txt")||die("search.txt File cannot open\n");
my @gen=<GEN>;
my @sea=<SEA>;
my @final = ();

for $a (@gen)
{
    my @result = grep/^\Q$a\E$/, @sea;
    push (@final , @result);
}

open(OUT, ">textCompare3Output.txt")||die("cannot create\n");
print OUT "\nSearch string that matches against general data:\t@final"
+;

[Fang]

The variable in the foreach loop should also be properly declared, and preferably not called $a.

for my $pattern (@gen)
{
    my @result = grep/^\Q$pattern\E$/, @sea;
    push (@final , @result);
}

[juergenkemeter]

the code has no errors now, but the comparison doesnt work properly, there is no output in the new textfile except 'Search string that matches against general data:' Even if I have two same entries in 'search.txt' and 'general.txt', there is still no output. Perhaps the @final variable does not work properly? Jurgen