#!/bin/perl
sub usage { return <<EOL;
usage: jsame file1 file2
	display number of same lines between file1 and file2.
EOL
}
if($#ARGV<1) { print &usage(); exit 1;}
open(F1,"$ARGV[0]")||die("Can't open $ARGV[0]\n");
open(F2,"$ARGV[1]")||die("Can't open $ARGV[1]\n");
my $i=0;
for(;(my $aline=<F1>)&&(my $bline=<F2>);$i++) {
	if($aline ne $bline) { &bye($i);}
}
&bye($i);

sub bye {
	my ($n,$n1,$n2)=@_;
	for($n1=$n+1;my $aline=<F1>;$n1++) { }
	for($n2=$n+1;my $bline=<F2>;$n2++) { }
	print "$ARGV[0] $ARGV[1] : same in $n lines out of $n1,$n2\n";
	exit 0;
}