#!/usr/bin/perl

#169lA00 d169la_ d.2.1.3 1 10 530 40
# CATHname  SCOPname  SCOPnum  CATHnumbers
open(DICT,"cath_scop_5105");


while (<DICT>) {
 #   chop();
 @line=split(/[\s.]/);
  $scop{$line[1]}=$line[2].".".$line[3].".".$line[4];
  $cath{$line[1]}=$line[6].".".$line[7].".".$line[8].".".$line[9];

}
close(DICT);


$err=0; $hit=0;
#open(LIST,$ARGV[0]);
while (<>) {
  @line=split(/\s+/);
  if  ($scop{$line[0]} eq $scop{$line[1]}) {
    if ($cath{$line[0]} eq $cath{$line[1]})  {
     $hit++;
     print "$hit $err\n";
    }
    else {
    } 
  }
  else {
    if ($cath{$line[0]} eq $cath{$line[1]})  {
    }
    else {
     $err++;
     print "$hit $err\n";
    } 
  }
}
#close(STDIO);

