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); 
}