如何获得一个；选择目录"；在Windows7上使用PerlTkx的对话框？

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

my $dirname = Tkx::tk___chooseDirectory();

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

谢谢你的帮助

更新：

我不会粘贴我的完整脚本，因为它太长了，但简单地运行以下命令会导致perl挂起：

use warnings;
use strict;
use Tkx;

my $dirname = Tkx::tk___chooseDirectory();

---

您的脚本使用您提供的代码运行在Windows7 Professional 64位和ActivePerl 5.20.2 64位下，运行正常，没有错误。见下图（被遮住的项目可能是敏感数据）：

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

---

HTH

使用您提供的代码，在64位Windows 7 Professional和64位ActivePerl 5.20.2下运行，您的脚本运行良好，没有错误。见下图（被遮住的项目可能是敏感数据）：

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

---

HTH

不，您没有正确使用它。你看过文件了吗@RonBergin说文档是针对

Tk

模块的，但是请求者使用的是

Tkx

，因此它可能不适用于他们；打印Tkx:：tk__选择目录（）工作？看起来应该可以了。我们能看看您正在使用的整个程序/代码吗？Thx@tale852150我已经更新了我原来的帖子。不，你没有正确使用它。你看过文件了吗@RonBergin说文档是针对

Tk

模块的，但是请求者使用的是

Tkx

，因此它可能不适用于他们；打印Tkx:：tk__选择目录（）工作？看起来应该可以了。我们能看看您正在使用的整个程序/代码吗？Thx@tale852150我已经更新了我原来的帖子。