如何从Perl设置文件权限？

Question

我正在编写一个生成Bash脚本的Perl脚本.我正在使用open()一种模式>将所有内容输出到一个新文件.标准材料:

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

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

有没有办法使新文件可执行(755或其他任何东西)使用open()？如果没有,为新文件设置文件权限的最佳方法是什么？

Answer 1

你会想要像这样chmod文件.

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

或者,如果你使用sysopen并适当地设置umask,你可以不用chmod.