1.22 Soundexマッチング

英語の性が２つあり、これらの性の発音がスペルとは関係なく似ているかどうかを知りたい。"Smith"と"Smythe"など。

# 方法1
use Text::Soundex;
$CODE = soundex($STRING);
@CODES = soundex(@LIST);

# 方法2
use Text::Metaphone;
$phoned_words = Metaphone('Schwern');