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

【问题标题】：How to get a "choose directory" dialog box using Perl Tkx on Windows 7?如何在 Windows 7 上使用 Perl Tkx 获得“选择目录”对话框？
【发布时间】：2015-10-17 16:03:33
【问题描述】：

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

my $dirname = Tkx::tk___chooseDirectory();

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

感谢您的帮助。

更新：

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

use warnings;
use strict;
use Tkx;

my $dirname = Tkx::tk___chooseDirectory();

【问题讨论】：

不，你没有正确使用它。你读过文档吗？ search.cpan.org/~srezic/Tk-804.033/pod/chooseDirectory.pod
@RonBergin 该文档适用于Tk 模块，但请求者使用的是Tkx，因此可能不适用于他们。
use Tkx; print Tkx::tk___chooseDirectory(); 等非常基本的脚本是否有效？
看起来应该可以。请让我们看看您正在使用的整个程序/代码吗？谢谢。
@tale852150 我已经更新了我原来的帖子。

标签： perl windows-7 tkx

【解决方案1】：

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

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

HTH

【讨论】：