Shell Programming and Scripting

#!/usr/bin/perl

open(IN1,"<test1.csv") || die("Couldn't open test1");
open(IN2,"<test2.csv") || die("Couldn't open test2");

my $lineno=0;

while((@arr1=split /","/ ,substr(<IN1>,1)) &&
  (@arr2=split /","/ ,substr(<IN2>,1)) )
{
  $lineno++;

  for($n=0; $n<@arr1; $n++)
  {
    if( ((@arr1[$n] eq "") || (@arr2[$n] eq "")) &&
        ((@arr1[$n] ne "") || (@arr2[$n] ne ""))  )
    {
      printf("Line %d Field %d: '%s' vs '%s'\n",
        $lineno, $n, @arr1[$n], @arr2[$n]);
    }
  }
}

close(IN1);
close(IN2);

if( ((@arr1[$n] ne (@arr2[$n] )) )
         {
           printf("Line %d Field %d: '%s' vs '%s'\n",
             $lineno, $n, @arr1[$n], @arr2[$n]);
         }