#!/usr/bin/perl -w # # $Id: metaphone2,v 1.2 2007/12/07 23:34:25 vogelke Exp $ # # Driver for double-metaphone. # # Example output: # BAUMGARD PMKR # BAUMGARDNER PMKR # BAUMGARDT PMKR # BAUMGARN PMKR # BAUMGARNER PMKR # BAUMGART PMKR # BAUMGARTEL PMKR # BAUMGARTEN PMKR # BAUMGARTER PMKR # BAUMGARTNER PMKR use Text::DoubleMetaphone qw( double_metaphone ); use strict; my $str; my %hash; if (@ARGV) { foreach $str (@ARGV) { $_ = double_metaphone($str); $hash{$str} = $_; } } else { while (<>) { chomp; $str = $_; $_ = double_metaphone($str); $hash{$str} = $_; } } foreach (sort keys %hash) { print "$_ $hash{$_}\n"; } exit(0);