perl - Perl で開いているフォルダ選択ダイアログを表示するにはどうすればよいですか?

Question

Perl でフォルダ選択ダイアログを開くにはどうすればよいですか?

Answer 1

最もポータブル（少なくとも他のrsと比較して）：

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

wxPerlの GUI バインディングを確認することをお勧めします。