#!/usr/bin/perl -w
#
# $Revision: 1.3+1 $ $Date: 2009/08/05 20:32:58 $
# $UUID: d1d297cd-181b-3fd1-b578-fbbbe1c1f066 $
#
#<mp: read words from stdin or command line, write metaphone equivalents.

use Text::Metaphone;
use strict;
my %hash;

if (@ARGV) {
    doword($_) foreach (@ARGV);
}
else {
    while (<>) {
        chomp;
        doword($_) foreach (split);
    }
}

foreach (sort keys %hash) {
    print "$_:$hash{$_}\n";
}
exit(0);

sub doword {
    my $word   = shift;
    my $m      = Metaphone($word);
    #$hash{$m} .= " $word" if length($m) > 1;
    $hash{$m} .= " $word";
}