设置文件权限所需的 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";