如何从Perl设置文件权限？

Question

我正在编写一个生成Bash脚本的Perl脚本。我正在使用open()以及>模式将所有内容输出到新文件。标准的东西：

open (FILEOUT, ">", "rename.sh") or die "Can't create rename.sh"; 

所得.sh文件是只读的，随着444的八进制值在的perldoc它说我可以添加一个+到>（open (FILEOUT, "+>", "rename.sh")），使新创建的文件读写，或666.

有没有办法使用open()来使新文件可执行（755或其他）？如果没有，那么为新文件设置文件权限的最佳方法是什么？

Answer 1

你会想要chmod这样的文件。

chmod 0755, $filename; 
#or 
chmod 0755, $fh; 

另外，如果您使用sysopen并相应地设置umask，你可以不用搭配chmod。

Answer 2

将+放在<或>的前面可让您以读取和写入模式打开文件。

在你的情况下，你可以chmod新创建的文件。