Perl diruse不被承认

Question

我的程序通过Windows中的命令行从文件目录的用户输入，然后在指定的路径上运行diruse以收集有关可用磁盘空间的信息。由于某种原因，错误一直说“diruse.exe未被识别为内部或外部命令”。以下是我的代码的一部分，要完整查看，请转到here。我从它的子代码中取出代码，看看它是否可行，但事实并非如此。

&argument_checking; #calling sub checking user arguements.

#&reading_directory; # reads user given directory.
chdir($user_directory), or die " Directory $user_directory does not exist"; #change to user directory or exit.  
open(DIRUSE, "diruse.exe /* . |"); #opening user given directory path.

foreach my $directory_lines(<DIRUSE>)
{
    chomp $directory_lines;
    push(@directory_lines, $directory_lines); #pushing directory lines from     file into an array
}

close(DIRUSE); #closing

shift(@directory_lines);
shift(@directory_lines);

pop(@directory_lines);

&chop_and_save;
&gui_creator;

Answer 1

该消息来自命令shell，这意味着它无法在当前目录或该进程的PATH中的任何目录中找到diruse.exe。