Re^2: compare most recent file with second most recent file and output difference

Thanks...I was trying out the solution kenosis provided..I installed file-slurp in the package manager and have my two files in c:\test\ The slurp.pm is in c:\perl64\site\lib\file. I ran the perl script from c:\test\ and got the below error Use of uninitialized value $file_name in -e at C:/Perl64/site/lib/File/Slurp.pm line 116. Use of uninitialized value $file_name in sysopen at C:/Perl64/site/lib/File/Slur p.pm line 193. Use of uninitialized value $file_name in concatenation (.) or string at C:/Perl6 4/site/lib/File/Slurp.pm line 194. read_file '' - sysopen: No such file or directory at c:\test\test_perl.pl line 9. i am more of a batch script person and not into much of perl. please advise.

Comment on Re^2: compare most recent file with second most recent file and output difference

Replies are listed 'Best First'.
Re^3: compare most recent file with second most recent file and output difference by Kenosis (Priest) on Nov 07, 2012 at 00:25 UTC
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>; }` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: compare most recent file with second most recent file and output difference
by Kenosis (Priest) on Nov 07, 2012 at 00:25 UTC

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>;
}
[download]

[reply]
[d/l]