Hi, jjoseph8008
I'm not sure what's causing the problem within File::Slurp, so please try the following which doesn't use that Module:
use strict;
use warnings;
my ( %file1Hash, %file2Hash, %mergedHash );
my @files = sort { -M $a <=> -M $b } <"*.txt">;
do { chomp; $file1Hash{$_}++ }
for getFileLines($files[0]);
$mergedHash{$_}++ for keys %file1Hash;
do { chomp; $file2Hash{$_}++ }
for getFileLines($files[1]);
$mergedHash{$_}++ for keys %file2Hash;
print "$_\n" for grep $mergedHash{$_} == 1, keys %mergedHash;
sub getFileLines {
open my $fh, '<', $_[0] or die $!;
return <$fh>;
}
|