perl getopt()函数有BUG？？

[whatsouta]

我用了一下这个函数，发现这个东东处理参数的时候会有BUG。比如我有一个调用
perl a.pl -d abcd -l log ...

a.pl使用

use Getopt::Std;
getopt("dos:", \%arg);
$dir = $arg{d};
$_sdir = $arg{l};

发现 $_sdir会出现取值"og"的情况，而不是"log"。
当然，我这个例子可能不会，我只是举这个例子来说明问题。


不知道有没有人也遇到过类似问题。

[whatsouta]

自己先鼎

[晨星]

use Getopt::Std;

getopt("dl", \%arg);
$dir = $arg{"d"};
$_sdir = $arg{"l"};
print "$dir\n$_sdir\n";