Perl Getopt配置问题

下面是我的情况，我可能会说出

perl test.pl-Ba

所以我使用

Getopt:：Long:：Configure（“捆绑”）

因此，即使我尝试使用选项执行，我的程序也开始变慢
perl test.pl

有什么最好的办法解决这个问题吗

基准结果：

#test.pl

use Getopt::Long;
Getopt::Long::Configure ("bundling");

GetOptions ( 'TestB|B|b' => \$testb ,
             'TestA|A|a' => \$testa, );

虽然捆绑显然会降低初始处理的速度（因为您现在必须为不同的子字符串组合解析参数字符串），但对于空脚本，您似乎最多会增加4%的系统时间和1%的用户时间。与实际运行脚本的成本相比，这应该不会太大。我承认我不确定实时变化——它们似乎没有太大的相关性——这可能是由于其他因素吗
 我不明白你的问题。您的程序以何种方式变慢？多少钱？你怎么知道的？请给出准确的基准测试结果，表明情况始终如此。我的初始测试对性能没有影响
with Getopt::Long::Configure ("bundling");

real    0m6.101s
user    0m2.040s
sys     0m0.260s

Without Getopt::Long::Configure ("bundling");

real    0m3.019s
user    0m2.020s
sys     0m0.200s