设置文件权限所需的 perl chmod 帮助

Question

下面是我的代码：

foreach my $node (@switch_list) { 
    chomp $node;
    print "$node \n";
    my $f3 = ">$node.txt";
    chmod 0755, $f3;
    open FILE3, "$f3" or die "Could not open file:$! \n";
}

这里我想创建许多具有完全权限的文件，但似乎使用创建的文件 权限：0640 而不是 0755。

Answer 1

您正在做的事情：

my $f3 = ">$node.txt";
chmod 0755, $f3;

因此 Perl 查找名为 >$node.txt 的文件。

相反，做：

my $f3 = "$node.txt";
chmod 0755, $f3;
open FILE3, ">", "$f3" or die "Could not open file:$! \n";

Answer 2

codaddict 是正确的，因为您已将模式包含在 $f3 字符串中，这可能会使 chmod 失败。

但是，比使用 chmod 更好的解决方案可能是使用 umask，我相信它可以与 open 一起使用（尽管文档只特别提到 sysopen，而且我不在 Linux 中，所以我可以尝试一下出去）。