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を使用しています」というエラーも表示されます。

String :: Nysiisをppmインストールしたところ、「インストールするパッケージが不足していません」と言われました。

この警告（またはエラー）が生成されないようにするにはどうすればよいですか？

score 1 · Accepted Answer

次の行で、初期化されていない変数を使用して呼び出しています。

my $enc = nysiis($string);

その行を削除するか、最初に$ stringを初期化します（次に$ encを使用します）。

1 に答える 1