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

大多数便携式(至少比加时赛他RS):

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

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