#!/usr/bin/perl -w
use strict;
use HTML::Diff;
unless( @ARGV == 2 ) {
print <
EOF
exit;
}
my ($file1, $file2);
{
undef $/;
open FH, "<$ARGV[0]" or die "Cannot open $ARGV[0] for reading";
$file1= ;
close FH;
open FH, "<$ARGV[1]" or die "Cannot open $ARGV[1] for reading";
$file2= ;
close FH;
}
my @diff= grep $_->[0] ne "u", @{ HTML::Diff::html_word_diff($file1, $file2) };
for (@diff) {
if( $_->[0] eq "c" ) {
print "!- $_->[1]\n!+ $_->[2]\n";
}
else {
print "$_->[0]$_->[0] ", $_->[0] eq "+" ? $_->[2] : $_->[1], "\n";
}
}