perl - 如何从 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。