#!/usr/bin/perl -w
#
use strict ;
#

#
# Scalars
#---------#

my $count_in  = 0 ;
my $count_new = 0 ;

my $file_new  = 'PC_LIST_20060919.txt' ;
my $file_old  = 'Prev_carefirst_PCs.txt' ;
my $PC_NO     = undef ;

#
# Arrays
#--------#

my @fields = () ;

#
# Boolean
#---------#

my $FOUND = 0 ;

#
# Processing
#------------#

print "\n\t\t\t\tTest Starts\n" ;

open IN1, "<$file_new" or die "\n\tCanny open $file_new :: $!\n" ;

while (<IN1>) {

   chomp ;
   $count_in ++ ;
   @fields = split /,/, $_ ;
   $PC_NO  = $fields[1] ;
   $FOUND  = 0 ;

   open IN2, "<$file_old" or die "\n\tCanny open $file_old :: $!\n" ;

   while (<IN2>) {

      chomp ;

      if (/($PC_NO)/) {
         print "\n\tIt matched!!!\n" ;
         $FOUND = 1 ;
      }

   }

   close IN2 or die "\n\tCan't close $file_old :: $!\n" ;

   if (! $FOUND) {
      print "\n\tPC $PC_NO is new!" ;
      $count_new ++ ;
   }

}

close IN1 or die "\n\tCan't close $file_new :: $!\n" ;

print "\n\tThere were $count_in PC's checked!" ;
print "\n\tThere were $count_new new PC's found!" ;

print "\n\t\t\t\tTest Ends\n" ;