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

Question

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

Answer 1

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

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

Answer 2

最便携（至少与其他相比）：

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

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

Answer 3

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