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

我想使用Perl Tkx调用Windows 7的“选择目录”对话框。这是我使用的是什么：如何在Windows 7上使用Perl Tkx获取“选择目录”对话框？

my $dirname = Tkx::tk___chooseDirectory();

然而，这并不能显示任何对话框，而是使我的程序，而不提供任何错误消息挂起。我是否错误地使用了该功能？我如何让对话框显示？

感谢您的帮助。

UPDATE：

我不会在我的全部脚本粘贴，因为它是太长，但只运行下列原因Perl来挂我：

use warnings; 
use strict; 
use Tkx; 

my $dirname = Tkx::tk___chooseDirectory();

2015-10-17 epsilonjon

不，您没有正确使用它。您是否阅读过文档？ http://search.cpan.org/~srezic/Tk-804.033/pod/chooseDirectory.pod –

@RonBergin该文档是用于'Tk'模块，但请求者使用'Tkx'，所以它可能不适用于他们。 – srvsh

是否有一个非常基本的脚本，例如'使用Tkx;打印Tkx :: tk ___ chooseDirectory（）;'工作？ – srvsh

你的脚本工作正常，没有错误，使用您提供的代码，在Windows 7 Professional 64位和ActivePerl 5.20.2 64位下运行。见下面（涂黑的项目是潜在的敏感数据）图像：

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

HTH

2015-10-22 21:44:04 tale852150

回答