Как мне представить диалог выбора открытой папки в Perl?

Question

Как открыть диалог выбора папки в Perl?

Answer 1

Наиболее портативный (по крайней мере, по сравнению с другими):

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

Конечно, если вы на самом деле используете Tk в остальной части вашей программы, вы должны позвонить chooseDirectory на правильный родительский виджет вместо того, который построен и разрушен здесь.

Answer 2

Зависит от системы GUI, которую вы используете, и, возможно, от платформы. Например, на Windows и используя Win32::GUI, ты можешь использовать GetOpenFileName:

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

Answer 3

Вы можете проверить привязки GUI в wxPerl.