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

Question

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

Answer 1

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

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

Answer 2

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

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

当然，如果您在程序的其余部分实际使用Tk，则应在正确的父窗口小部件上调用chooseDirectory，而不是在此处构建和销毁的部件。

Answer 3

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