#!/usr/bin/perl

use strict;
use lib "/Users/allasso/AWS/utility/cpan/lib/perl5/site_perl";
require Algorithm::Diff;
use Time::HiRes qw( time );

my($source_path_1, $source_path_2) = @ARGV;

$source_path_1 =~ s@\x2f*$@@;
$source_path_2 =~ s@\x2f*$@@;

my @src_list_1 = `find $source_path_1 -name "*.htm*"`;
my @src_list_2 = `find $source_path_2 -name "*.htm*"`;

my $time = time();

for my $count (0..9) {
    
    my $list_cnt = 0;
    
    for my $file_src_1 (@src_list_1) {
    
        my $file_src_2 = $src_list_2[$list_cnt++];
       
        chomp $file_src_1;
        chomp $file_src_2;
    
        my $holdRS = $/;
        local $/;
        if (! open(FH, $file_src_1)) {
            print "unable to open source file 1: $file_src_1\n";
        }
        my $filestring_1 = <FH>;
        $/ = $holdRS;
        close(FH);
        
        $holdRS = $/;
        local $/;
        if (! open(FH, $file_src_2)) {
            print "unable to open source file 2: $file_src_2\n";
        }
        my $filestring_2 = <FH>;
        $/ = $holdRS;
        close(FH);
        
        $filestring_1 =~ s@\s+@\n@g;
        $filestring_2 =~ s@\s+@\n@g;
    
        ### DIFF ALGORITHM HERE..

    }
}

my $time_4sig = time() - $time + .005;
$time_4sig =~ s@^(.....).*@$1@;
print STDERR "\n\net:  ".$time_4sig."\n";

exit;