如何在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，而不是在此構建和銷燬的窗口。