Perl TK打開文件夾

Question

假設我們有一個輸入框和一個按鈕。當用戶按下按鈕時，它應該從輸入框中取出路徑並打開相應的文件夾。我如何使用Perl/TK來做到這一點？在此先感謝

Answer 1

您可能會對打開文件瀏覽器的命令行進程執行系統調用。在Windows上，這顯然是start命令，在Linux上可以運行如gnome-open或nautilus。

sub open_directory { 
    my $directory = shift; 

    if ($^O eq 'MSWin32') { 
    exec "start $directory"; 
    } elsif ($^O = 'linux') { 
    exec "gnome-open $directory" or 
    exec "kde-open $directory"; 
    # test for more OS cases 
    } else { 
    die "cannot open folder on your system: $^O"; 
    } 
} 

Answer 2

你可能想嘗試一個像這樣的小工具。

#!/usr/bin/perl 
use strict; 
use warnings; 

use Tk; 
use Tk::DirTree; 

my $mw = MainWindow->new; 
$mw->title("Type path of directory and click OK"); 
$mw->geometry('400x300+'.int(($mw->screenwidth-400)/2).'+'.int(($mw->screenheight-300)/2)); 

my $dir = $mw->Entry(-text  => '', 
         -width  => 20, 
         -font  => 'Courier 12 bold', 
         -background => 'Orange', 
)->pack(-ipadx => 35); 

$dir->focus(); 

$mw->Button(-text  => 'Ok', 
      -font  => 'Courier 12 bold', 
      -background => 'Orange', 
      -command => sub{ dirwindow($dir) }, 
)->pack( -side  => 'left', 
      -ipadx  => 40 
); 

$mw->Button(-text  => 'Exit', 
      -font  => 'Courier 12 bold', 
      -background => 'Orange', 
      -command => sub { exit } 
)->pack( -side  => 'right', 
      -ipadx  => 40 
); 

MainLoop; 

sub dirwindow { 
    my $d = shift; 
    my $dir_val = $d->get; 
    my $dl = $mw->DirTree(-directory => $dir_val)->pack(-fill => 'both', -expand => 1); 
}