perl - 如何在 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();

score 0 · Accepted Answer

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

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

高温高压

1 回答 1