#!/usr/bin/perl

if(@ARGV < 2) {
        print "usage:jdiff infile1 infile2\n";
        exit;
}

my $in1file = $ARGV[0];
my $in2file = $ARGV[1];

open(IN1,"$in1file");
open(IN2,"$in2file");
$i1=0; $i2=0;
while(($in1line=<IN1>) && ($in2line=<IN2>)) {
        if($in1line eq $in2line) {
                $i1++; $i2++;
        }
        else {
                $a1 = $i1 +1;
                $a2 = $i2 +1;
                print "$a1:<$in1line";
                print "$a2:>$in2line";
                close(IN1);
                close(IN2);
                exit;
        }
}
print "$in2file is same with $in1file !\n";
close(IN1);
close(IN2);

#open(IN1,"$in1file");
#while($in1line=<IN1>) { print "$in1line";}
#close(IN1);