perl - Perl 中的 NYSIIS 算法

Question

我正在尝试在 perl 中使用 NYSIIS 模块：http ://search.cpan.org/~krburton/String-Nysiis-1.00/Nysiis.pm

我尝试了示例程序：

#!/usr/bin/perl

use 5.10.0;
use String::Nysiis qw(nysiis);

my $enc = nysiis($string);

print nysiis('Larry'),"\n"; # should print LARY

它确实打印了 LARY，但它也给了我一个错误：“在 C:/Perl/site/lib/String/Nysiis.pm 第 24 行的 uc 中使用未初始化的值 $string。”

当我执行 ppm install String::Nysiis 时，我被告知“没有要安装的缺失包”。

如何防止生成此警告（或错误）？

Answer 1

您在这一行中使用未初始化的变量调用它：

my $enc = nysiis($string);

取出该行，或先初始化 $string（然后使用 $enc）。