如何在Windows7上使用Perl Tkx获得“选择目录”对话框？

Question

我正在尝试使用Perl Tkx调用Windows7的“选择目录”对话框。这就是我正在使用的：

my $dirname = Tkx::tk___chooseDirectory();

但是，这不会显示任何对话框，而是导致我的程序挂起而不提供任何错误消息。我是不是用错了这个函数？如何显示该对话框？

谢谢你的帮助。

更新：

我不会粘贴完整的脚本，因为它太长了，但是只要运行下面的代码就会导致perl挂起：

use warnings;
use strict;
use Tkx;

my $dirname = Tkx::tk___chooseDirectory();

Answer 1

使用您提供的代码，您的脚本运行正常，没有错误，在Windows7专业版64位和ActivePerl 5.20.2 64位下运行。见下图(黑屏项目是潜在的敏感数据)：

​

​

但我在这里假设其他Tkx小部件工作正常，因此Tk安装正确。

HTH