Re: How to find the difference between two text files using a hash array

Consider using List::Compare to compare the two arrays. Below is an example of its use. The results show items that appear only in the left list contained by @array1:

use strict;
use warnings;
use List::Compare;

my @array1 = split /\n/, <<END1;
/home       filer1232:/vol/home1
/mystuff    filer1233:/vol/project
/data       filer1234:/vol/example_data
/software   filer1255:/vol/my_software
/tools      filer1235:/vol/my_tools
/docs       filer146:/vol/my_documents
END1

my @array2 = split /\n/, <<END2;
/home       filer1232:/vol/home1
/mystuff    filer1233:/vol/project
/data       filer1234:/vol/example_data
/tools      filer1235:/vol/my_tools
END2

my $lc = List::Compare->new( \@array1, \@array2 );

my @Lonly = $lc->get_unique;

print "$_\n" for @Lonly;
[download]

Output:

/docs       filer146:/vol/my_documents
/software   filer1255:/vol/my_software
[download]

Comment on Re: How to find the difference between two text files using a hash array Select or Download Code

Replies are listed 'Best First'.
Re^2: How to find the difference between two text files using a hash array by NewLondonPerl1 (Acolyte) on Jan 20, 2013 at 21:39 UTC
Thanks alot everyone for your help. I will try this out now	[reply]
Re^2: How to find the difference between two text files using a hash array by NewLondonPerl1 (Acolyte) on Jan 20, 2013 at 21:48 UTC
Ok I have tried using List::Compare and unfortunately we dont have this perl module. I am going to try out these other suggestions now	[reply]
Re^3: How to find the difference between two text files using a hash array by Kenosis (Priest) on Jan 21, 2013 at 01:28 UTC
Below generates the same results w/o using the module: use strict; use warnings; my @array1 = split /\n/, <<END1; /home filer1232:/vol/home1 /mystuff filer1233:/vol/project /data filer1234:/vol/example_data /software filer1255:/vol/my_software /tools filer1235:/vol/my_tools /docs filer146:/vol/my_documents END1 my @array2 = split /\n/, <<END2; /home filer1232:/vol/home1 /mystuff filer1233:/vol/project /data filer1234:/vol/example_data /tools filer1235:/vol/my_tools END2 my %currMounted = map { $_ => 1 } @array2; print "$_\n" for grep !$currMounted{$_}, @array1; [download]	[reply] [d/l]
Re^3: How to find the difference between two text files using a hash array by Anonymous Monk on Jan 21, 2013 at 07:32 UTC
Ok I have tried using List::Compare and unfortunately we dont have this perl module. If you have the time these should help you get the module :) Yes, even you can use CPAN Top 11 (GOOD) reasons not to use someone else's Modules, Top Seven (Bad) Reasons Not To Use Modules	[reply]