while () { chomp; my $line = $_; #print __LINE__ . " $_\n"; my ($var1,$var2) = split(/:/,$line); $var2 = substr($var2,1); #remove 1st space results from substr $diffHash1{$var2} = $var2; } close(FH1); getCount(\%diffHash1); #$sclar = keys(%hash) my $cnt1 = getCount(\%diffHash1,'1'); print "Reading in $file2\n"; open FH2, "< $file1" || die "Counld not open $file2: $!"; while () { chomp; my $line = $_; my ($var1,$var2) = split(/:/,$line); $var2 = substr($var2,1); $diffHash2{$var2} = $var2; } close(FH2); print "Comparing $file1 and $file2\n"; my $cnt2 = getCount(\%diffHash2,'1'); print "Count in $file1: $cnt1\n"; print "Count in $file2: $cnt2\n"; if ($cnt1 gt $cnt2) { while (my($k1,$v1) = each(%diffHash1)) { my $line = $k1; if (!$diffHash2{$line}) { $resHash{$line} = $line; } } } else { while (my($k1,$v1) = each(%diffHash2)) { my $line = $k1; if (!$diffHash1{$line}) { $resHash{$line} = $line; } } } #### grep insert_job | wc -l