Shell Programming and Scripting

awk '{getline line < "file2"}
line != $0 {
  print "Line " NR " mismatched"
  print "file1: "$0
  print "file2: "line
}' file1

#!/usr/bin/perl
sub _hash{
	my ($file,%hash)=(@_);
	open FH,"$file";
	while(<FH>){
		chomp;
		next if $.==1;
		my @tmp=split("[|]",$_);
		$hash{$tmp[0]}->{N2}=$tmp[1];
		$hash{$tmp[0]}->{N3}=$tmp[2];
		$hash{$tmp[0]}->{N4}=$tmp[3];
		$hash{$tmp[0]}->{N5}=$tmp[4];
		$hash{$tmp[0]}->{N6}=$tmp[5];
		$hash{$tmp[0]}->{N7}=$tmp[6];
		$hash{$tmp[0]}->{N8}=$tmp[7];
		$hash{$tmp[0]}->{N9}=$tmp[8];
	}
	close FH;
	return \%hash;
}
sub _compare{
	my($ref1,$ref2)=(@_);
	my %hash1=%{$ref1};
	my %hash2=%{$ref2};
	for $key (keys %hash1){
		my %t1=%{$hash1{$key}};
		my %t2=%{$hash2{$key}};
		my (@arr,$header)=();
		for $k (sort keys %t1){
			if ($t1{$k} ne $t2{$k}){
				$header.="|".$k;
				push @arr,$k;
			}
		}
		if ($#arr != -1 ){
			print "N1",$header,"\n",$key;
			map {print "|",$t1{$_}} @arr;
			print "\n",$key;
			map {print "|",$t2{$_}} @arr;
			print "\n------------------\n";
		}
	}
}
_compare(_hash("a.txt"),_hash("b.txt"));