#!/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);