これは、コマンド ライン引数の処理をテストするために作成した簡単なスクリプトです。
use Getopt::Long;
my $help = 0;
GetOptions(
'help|h|?' => \$help,
) or die "Error!";
print "OK\n";
私が得た結果は次のとおりです。
D:\>perl test.pl --help
OK
D:\>perl test.pl --hell
Unknown option: hell
Error! at test.pl line 10.
D:\>perl test.pl --he
OK
D:\>perl test.pl --hel
OK
誰もこれに気づいたことがありますか?動作 (ヘルプの代わりに彼とヘルを受け入れる) は潜在的なバグですか?