Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: Compare two txt files and print the difference between the two files.

by Kenosis (Priest)
on Feb 01, 2013 at 18:25 UTC ( #1016597=note: print w/replies, xml ) Need Help??

in reply to Compare two txt files and print the difference between the two files.

If I'm understanding you correctly, you're interested in finding all items in the first file that are not in the second file. If this is the case, List::Compare can assist you with this:

use strict; use warnings; use File::Slurp qw/read_file/; use List::Compare; chomp( my @a_file = read_file 'a_file.txt' ); chomp( my @b_file = read_file 'b_file.txt' ); my @a_file_only = List::Compare->new( \@a_file, \@b_file )->get_Lonly; print "$_\n" for @a_file_only;

Output on your data sets:

Hope this helps!

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1016597]
[erix]: in this context, one learns all kinds of interesting psychological excuse-jargon: not just 'alternative facts'; how about 'gapped knowledge' ? :)
[erix]: which still manages to sound more or less positive
[Corion]: Huh. I wasn't aware that you cannot segregate Python 2 and Python 3 modules... Hopefully Perl 6 module use C6AN and thus avoid the problem...
[hippo]: I very much hope so.
[moritz]: there are already some (very few) Perl 6 modules on CPAN, but in a way that the p5 indexer avoids them

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (10)
As of 2017-01-24 09:17 GMT
Find Nodes?
    Voting Booth?
    Do you watch meteor showers?

    Results (203 votes). Check out past polls.