Text::DoubleMetaphone - Phonetic encoding of words.

Text-DoubleMetaphone documentation Contained in the Text-DoubleMetaphone distribution.

Index

Code Index:

NAME

Top

Text::DoubleMetaphone - Phonetic encoding of words.

SYNOPSIS

Top

  use Text::DoubleMetaphone qw( double_metaphone );
  my($code1, $code2) = double_metaphone("Aubrey");

DESCRIPTION

Top

This module implements a "sounds like" algorithm developed by Lawrence Philips which he published in the June, 2000 issue of C/C++ Users Journal. Double Metaphone is an improved version of Philips' original Metaphone algorithm.

In contrast to the Soundex and Metaphone algorithms, Double Metaphone will sometimes return two encodings for words that can be plausibly pronounced multiple ways.

For additional details, see Philips' discussion of the algorithm at:

  http://www.cuj.com/articles/2000/0006/0006d/0006d.htm?topic=articles

FUNCTIONS

Top

double_metaphone( STRING )

Takes a word and returns a phonetic encoding. In an array context, it returns one or two phonetic encodings for the word. In a scalar context, it returns the first encoding. The first encoding is usually based on the most commonly heard U.S. pronounciation of the word.

AUTHOR

Top

Copyright 2000, Maurice Aubrey <maurice@hevanet.com>. All rights reserved.

This code is based heavily on the C++ implementation by Lawrence Philips, and incorporates several bug fixes courtesy of Kevin Atkinson <kevina@users.sourceforge.net>.

This module is free software; you may redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

Top

Man Pages

Text::Metaphone, Text::Soundex

Additional References

Philips, Lawrence. C/C++ Users Journal, June, 2000.

Philips, Lawrence. Computer Language, Vol. 7, No. 12 (December), 1990.

Kevin Atkinson (author of the Aspell spell checker) maintains a page dedicated to the Metaphone and Double Metaphone algorithms at <http://aspell.sourceforge.net/metaphone/>

Text-DoubleMetaphone documentation Contained in the Text-DoubleMetaphone distribution. 
package Text::DoubleMetaphone;

# $Id: DoubleMetaphone.pm,v 1.3 2001/06/16 08:43:23 maurice Exp $

use strict;
use Carp;
use vars qw( $VERSION @ISA @EXPORT_OK $AUTOLOAD );

require Exporter;
require DynaLoader;
require AutoLoader;

@ISA = qw( Exporter DynaLoader );
@EXPORT_OK = qw( double_metaphone );

$VERSION = '0.07';

sub AUTOLOAD {
    # This AUTOLOAD is used to 'autoload' constants from the constant()
    # XS function.  If a constant is not found then control is passed
    # to the AUTOLOAD in AutoLoader.

    my $constname;
    ($constname = $AUTOLOAD) =~ s/.*:://;
    croak "& not defined" if $constname eq 'constant';
    my $val = constant($constname, @_ ? $_[0] : 0);
    if ($! != 0) {
	if ($! =~ /Invalid/) {
	    $AutoLoader::AUTOLOAD = $AUTOLOAD;
	    goto &AutoLoader::AUTOLOAD;
	}
	else {
		croak "Your vendor has not defined DoubleMetaphone macro $constname";
	}
    }
    no strict 'refs';
    *$AUTOLOAD = sub () { $val };
    goto &$AUTOLOAD;
}

bootstrap Text::DoubleMetaphone $VERSION;

1;

__END__