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

Question

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

Answer 1

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

Answer 2

取决于您使用的GUI系统，也可能是平台。如果你实际使用Tk的

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

当然：例如，在Windows和使用Win32::GUI，您可以使用GetOpenFileName：

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

Answer 3

大多数portable（至少比others）在其余的程序中，您应该在适当的父窗口部件上调用chooseDirectory，而不是在此构建和销毁的窗口。