如何在Windows 7上使用Perl Tkx获取“选择目录”对话框？

Question

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

my $dirname = Tkx::tk___chooseDirectory();

但是，这不显示任何对话框，而是导致我的程序挂起而不提供任何错误消息。我错误地使用了这个功能吗？如何显示对话框？

感谢您的帮助。

更新：

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

use warnings;
use strict;
use Tkx;

my $dirname = Tkx::tk___chooseDirectory();

Answer 1

使用您提供的代码，使用ActivePerl 5.20.2 64位在Windows 7 Professional 64位下运行，您的脚本运行正常，没有错误。请参见下图（黑屏项目可能是敏感数据）：

Tkx屏幕是否可能显示在另一个屏幕后面？尝试运行从MS-DOS提示符提供的代码。 此外，必须安装Tk.pm，因为Tkx是Tk的包装器。但我在这里假设其他Tkx小部件正常工作，因此Tk安装正确。

HTH