系统命令在Perl脚本中无法正常工作

Question

使用Perl脚本更改特定目录的权限。脚本运行正常，但未更改目录权限。

system("chmod 0777 $dir");

$dir：在此变量中声明了路径。

无法设置权限。

Answer 1

我无法告诉您为什么命令失败，因为您没有提供足够的详细信息，但是在这种情况下无需使用system，因为Perl内置了chmod且其行为与一样。

use strict;
use warnings;

my $dir = "/some/dir";
chmod 0777, $dir or die "$!";

如果命令失败，这还将为您提供有效的错误消息。

您还可以列出目录和文件。

use strict;
use warnings;

my @dirs = ("dir1", "dir2");
my $each = chmod 0777, @dirs;
print "$each modified\n";
die $! if ($!);