Perl-TK打开文件夹

假设我们有一个输入框和一个按钮。当用户按下按钮时，它应该从输入框中获取路径并打开相应的文件夹。我如何使用Perl/TK实现它？提前感谢

您可能需要尝试类似的小部件

---

您可能需要尝试类似的小部件

---

您可以对打开文件浏览器的命令行进程进行系统调用。在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";
  }
} 

---

您可以对打开文件浏览器的命令行进程进行系统调用。在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";
  }
} 

---

listdirfiles

是否接受参数？定义说不是，使用说是…谢谢你的回复。但是，该代码是否打开与输入对应的文件夹。可能是我的问题有点不清楚。我想打开与给定路径对应的窗口。假设用户键入c:\，我想打开c:\drive窗口。@Donal Fellows是的，我看到我传递了一个参数，但没有使用它。ListDirFile应该以如下内容开头：my$d=shift；my$dir_val=$d->get@Winbros很抱歉，我现在才给你回电话。我将listdirfiles子例程替换为dirwindow，以显示打开指定目录的树。我想我不知道你打开目录是什么意思。如果要浏览某个文件，则可能需要尝试。是否使用参数

listdirfiles

？定义说不是，使用说是…谢谢你的回复。但是，该代码是否打开与输入对应的文件夹。可能是我的问题有点不清楚。我想打开与给定路径对应的窗口。假设用户键入c:\，我想打开c:\drive窗口。@Donal Fellows是的，我看到我传递了一个参数，但没有使用它。ListDirFile应该以如下内容开头：my$d=shift；my$dir_val=$d->get@Winbros很抱歉，我现在才给你回电话。我将listdirfiles子例程替换为dirwindow，以显示打开指定目录的树。我想我不知道你打开目录是什么意思。如果要浏览文件，则可能需要尝试。将尝试并让您知道。顺便说一句，tanxCalling此子组件将关闭我的初始界面窗口。有没有办法阻止这种情况？我已经很长时间没有使用tk了。我建议你作为一个新问题提问。我会尽量让你知道。顺便说一句，tanxCalling此子组件将关闭我的初始界面窗口。有没有办法阻止这种情况？我已经很长时间没有使用tk了。我建议你作为一个新问题提问。