Skip to content

Instantly share code, notes, and snippets.

@kyanny

kyanny/gist:128452

Created June 12, 2009 05:35
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save kyanny/128452 to your computer and use it in GitHub Desktop.
Save kyanny/128452 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
#!/usr/bin/env perl
use strict;
use Array::Diff;
use Data::Dumper;
my ($old, $new) = @ARGV;
open my $io, '<', $old;
my @old = <$io>;
chomp @old;
close $io;
open my $io, '<', $new;
my @new = <$io>;
chomp @new;
close $io;
my $diff = Array::Diff->diff(\@old, \@new);
print Dumper $diff;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment