如何在 Perl 中显示打开的文件夹选择对话框？答案

【问题标题】：How do I present an open folder selection dialog in Perl?如何在 Perl 中显示打开的文件夹选择对话框？
【发布时间】：2010-12-24 16:26:27
【问题描述】：

如何在 Perl 中打开文件夹选择对话框？

【问题讨论】：

【解决方案1】：

大多数portable（至少与ot he rs相比）：

use Tk;
my $dir = Tk::MainWindow->new->chooseDirectory;

当然，如果您实际上在程序的其余部分中使用 Tk，您应该在适当的父小部件上调用 chooseDirectory，而不是在此处构造和销毁的小部件。

【讨论】：

【解决方案2】：

取决于您使用的 GUI 系统，也可能取决于平台。例如，在 Windows 上并使用Win32::GUI，您可以使用GetOpenFileName：

# $main is your main window...
$my_file = $main->GetOpenFileName(
    -title => 'Select a file...',
    -file => 'default.file',
);

【讨论】：

【解决方案3】：

您可能想查看wxPerl 中的 GUI 绑定。

【讨论】：