HTMLColDiff.pl

#!/usr/dcs/software/supported/bin/perl -w

# htmlcoldiff - Diff two files (specified on the command line) laid out in
# columns.  Output a copy of the second file with differences from the first
# hi-lighted in bold (with HTML tags).  This assumes that the first column of
# the file is an identifier that keys two rows of the files together.
#

$Input1 = $ARGV[0];
$Input2 = $ARGV[1];

open(INPUT1, $Input1) or die "Couldn't open '$Input1'!";
open(INPUT2, $Input2) or die "Couldn't open '$Input2'!";

# Read all of the lines of both files into arrays:
my @File1 = <INPUT1>;
my @File2 = <INPUT2>;

# Convert the first file from an array of lines to a hash from the key to the
# whole line.

foreach $Line (@File1) {
  my $Key = (split /\s+/, $Line, 2)[0];
  $File1Map{$Key} = $Line;
  #print "Map '$Key' => '$Line'\n";
}

# Loop over the second file, outputting it, surrounding field with <B> tags if
# they differ from the first file.

foreach $Line (@File2) {
  my @Fields = split /(\s+)/, $Line;  # Keep the seperators as well...
  my $Key = $Fields[0];
  my $CompareLine = $File1Map{$Key};
  my @FieldsCompare = split /\s+/, $CompareLine;  # Do not keep seperators

  # Loop over all of the Fields, outputting them with an optional tag...
  my $FieldNo = 0;
  foreach $Field (@Fields) {
    if ($Field =~ /\s+/) {    # If it's a seperator, just output it
      print $Field;
    } else {                  # If it's not a seperator, diff it...
      my $Hilight = 0;

      if (@FieldsCompare > $FieldNo) {
        my $FieldComp = $FieldsCompare[$FieldNo];
        if ($Field =~ /[0-9]+\.[0-9]+/ && $FieldComp =~ /[0-9]+\.[0-9]+/ &&
            $Field != 0) {              # Handle floating point numbers special
          # They are only highlighted if they change by 20% or more...
          my $Change = $FieldComp/$Field;
          $Hilight = 1 if ($Change > 1.3333 || $Change < 0.666);
          
        } elsif ($Field ne $FieldComp) {
          $Hilight = 1;
        }
      }

      print "<b>" if $Hilight;
      print $Field;
      print "</b>" if $Hilight;
      $FieldNo++;
    }
  }
}