Bash "file --mime-type“命令在Perl脚本中不起作用

Question

我正在尝试在Perl脚本中运行bash命令。我正在使用system("file --mime-type $fileName);，但当其他命令正在运行时，例如ls or pwd，它却无法工作。在终端中，显示“无法打开'Paper(filename)‘(没有这样的文件或目录)。以下是我的代码：

foreach my $a(@ARGV)
    {
        opendir(DIR, $a) or die "You've Passed Invalid Directory as Arguments or $!\n";

        while(my $fileName = readdir DIR)
        {
            next if $fileName =~ /^\./; #this is to remove dotted hidden files.

            system("file --mime-type $fileName");

            print $fileName,"\n";
        }

        closedir(DIR);
    }

请看终端错误信息截图：

​

​

我想知道为什么这个命令不能像其他命令一样工作？当我只在终端中输入这个命令时，它会正确地显示文件类型，但不会在Perl脚本中显示。我们将非常感谢您的帮助。

Answer 1

$filename只是文件名，它不包括目录部分。因此，file在您的工作目录中查找该文件，而不是在$a中查找该目录。

您需要连接目录名和文件名才能获得完整的路径名。另外，您应该给system()提供一个参数列表，因为您没有使用外壳解析。

system('file',  '--mime-type', "$a/$fileName");