0 down vote favorite
I have problem with my code cose of this part:
foreach my $line(keys %results){
print Dump($post) if $results{$line} == 1;
}
I need it to be only one time printed 'print Dump($post)'
Here is all that part
my $f1 = "/home/hellena/Desktop/data.txt";
my $f2 = "/home/hellena/Desktop/ini.txt";
my %results = ();
open FILE1, "$f1" or die "Could not open file: $! \n";
while(my $line = <FILE1>){$results{$line}=1;
}
close(FILE1);
open FILE2, "$f2" or die "Could not open file: $! \n";
while(my $line =<FILE2>) {
$results{$line}++;
}
close(FILE2);
foreach my $line(keys %results){
print Dump($post) if $results{$line} == 1;
}