- if ( $#candidates == 0 ) {
- $stat->{similarity}->{$nr}++;
- my $new_num = $candidates[0]->{key};
- $id = join('-',uc $new_num, $row->[1], $row->[2]);
- print "SIMILARITY $nr $num -> $new_num\n";
- push @{ $keys->{ $key_id }->{ $id } }, uc $id;
- } elsif ( $#candidates > 1 ) {
- warn "# similarity IGNORED $num = ",dump( @candidates ),$/;
- $stat->{similarity_multiple}->{$nr}++;
+ if ( @candidates ) {
+ my $multi = $#candidates > 0 ? 'multi' : '';
+ $stat->{ 'similarity' . $multi }->{$nr}++;
+ foreach my $i ( 0 .. $#candidates ) {
+ my $new_num = $candidates[$i]->{key};
+ $id = join('-',uc $new_num, $row->[1], $row->[2]);
+ print "SIMILARITY$multi $nr $num -> $new_num\n";
+ push @{ $keys->{ $key_id }->{ $id } }, uc $id;
+ }