更改perl中的文件权限

Question

我正在使用以下代码创建一个文件：

open  DINFO, ">>","Mylocation/$NAME/domain_info.txt" or dir $!;
print DINFO "$_[0]:$_[1]:$_[2]\n";
close DINFO;

我想要使用文件权限644创建“domain_info.txt”文件。如何在代码本身中重定向权限。请帮忙。

Answer 1

从perldoc检查umask

  

的umask   将进程的umask设置为EXPR并返回先前的值。如果省略EXPR，则只返回当前的umask。

# newly created files will have 644 permissions
my $old_umask = umask(0777-0644);
# open my $fh, ">>", ..

# set back old umask
umask($old_umask);