$ cat ~/bin/diffident_html.pl #!env perl # # diffident_html.pl # # Build a dumb HTML table showing the diff (via Algorithm::Diff) of two files # use strict; use warnings; use Algorithm::Diff; my $LFName = shift // die "Expected two file names!"; my @lfile = readfile($LFName); my $RFName = shift // die "Expected *TWO* file names!"; my @rfile = readfile($RFName); my $diff = Algorithm::Diff->new( \@lfile, \@rfile ); $diff->Base(1); print qq{\n}; print qq{} . qq{\n}; print qq{} . qq{} . qq{} . qq{\n}; while ($diff->Next()) { if ($diff->Same()) { # Left and Right file have a block of identical lines print qq{\n}; next; } my ($min1, $min2) = $diff->Get(qw( Min1 Min2 )); my @L = $diff->Items(1); my @R = $diff->Items(2); while (@L or @R) { print qq{}; if (@L) { print qq{}; ++$min1; shift @L; } else { print qq{}; ++$min2; shift @R; } else { print qq{\n}; } } print qq{
$LFName$RFName
#Source#Source
. . . . } . qq{ block of matching lines . . . .
$min1$L[0]}; } if (@R) { print qq{$min2$R[0]}; } print qq{
\n}; sub readfile { my $fname = shift; open my $FH, '<', $fname or die "Can't open file $fname: $!\n"; return <$FH>; }