如何在 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

大多数便携（至少与相比）。 org/?dist=Wx" rel="noreferrer">不他< a href="http://matrix.cpantesters.org/?dist=Win32::GUI" rel="noreferrer">rs)：

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

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

Answer 3

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