note
hdb
<p>
If you have TWO files, then you would do "++" on the first, and "--" on the second...
</p>
<code>
use strict;
use warnings;
my $file1 = <<FILE1;
261293 'snow > equipment'
261293 'snow > equipment > boots'
261293 'snow > equipment > facemasks'
261293 'snow > equipment > goggles'
261293 'snow > equipment > helmets'
261293 'surf > accessories > books'
FILE1
my $file2 = <<FILE2;
261293 'snow > equipment'
261293 'snow > equipment > boots'
261293 'snow > equipment > facemasks'
261293 'snow > equipment > goggles'
261293 'surf > accessories > books'
FILE2
my %uniq;
$uniq{$_}++ for split /\n/, $file1;
$uniq{$_}-- for split /\n/, $file2;
print join "\n", grep { $uniq{$_} } keys %uniq;
print "\n";
</code>
1031226
1031226