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

Question

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

- Greg

---

你使用哪个 GUI 工具包？（Tk、Win32::GUI、wxPerl 等） - Michael Carman

由于Greg似乎不愿意提供更多信息，我们投票关闭此问题，标记为“不是一个真正的问题”。 - innaM

@Manni：也许是这样，但这仍然可以是一个有用的问题，因为现在有了Tk和Win32 :: GUI的答案示例... - Adam Bellaire

我怀疑他还没有任何GUI工具包。 - Ether

Answer 1

根据您使用的GUI系统和平台，可能会有所不同。例如，在Windows上使用Win32::GUI，您可以使用GetOpenFileName：

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

- Adam Bellaire

Answer 2

大多数 便携式（至少与其他的比较）：

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

当然，如果您在程序的其他部分实际使用了Tk，那么您应该在适当的父窗口小部件上调用chooseDirectory，而不是在此处构建和销毁的窗口小部件上调用。

- ephemient

Answer 3

您可能想要查看wxPerl中的GUI绑定。请注意保留HTML标记。

- Ether