    631    1459   12907 complete5.partial.nomatch-stingy.merge
    1031   12218  180425 complete5.stingy-partial.merge

[portnoy!jhawk] /afs/sipb/user/sly/Research/FTTH/NANPA> head remainder-for-matching | perl -ne 'use Text::Soundex; chop; @f=split(/\t/); $f[1] =~ s/ //g; @p=split(/,/,$f[1]); ; print $_ . "\t$p[1] " . soundex($p[0]) . "\n";' | cat -vet | less

perl -ne 'use Text::Soundex; chop; @f=split(/\t/); $f[1]
 =~ s/ //g; @p=split(/,/,$f[1]); ; print $_ . "\t$p[1] " . soundex($p[0]) . "\n"
;' remainder-for-matching > remainder.soundex
 < complete5.partial.nomatch-stingy.merge perl -ne 'use Text::Soundex; chop; $_ =~ s/ //g; @p=split(/,/,$_); ; print $_ . "\t$p[1] " . soundex($p[0]) . "\n";' > nomatch-stingy.soundex

< complete5.yes.nomatch-stingy.merge perl -ne 'use Text::Soundex; chop; $_ =~ s/ //g; @p=split(/,/,$_); ; print $_ . "\t$p[1] " . soundex($p[0]) . "\n";' > yes.soundex


complete5.partial.nomatch-stingy.merge

 sort -t\     +1 nomatch-stingy.soundex > nomatch-stingy.ssort
sort -t\     +1 yes.soundex  > yes.ssort
sort -t\     +2 remainder.soundex > remainder.ssort


join -t\     -j1 2 -j2 3 -o 2.1,1.1 nomatch-stingy.ssort remainder.ssort > nomatch-joined

join -t\     -j1 2 -j2 3 -o 2.1,1.1 yes.ssort remainder.ssort > yes-joined
