如何从Perl设置文件权限？

发布时间：2020-12-15 22:01:25 所属栏目：大数据来源：网络整理

导读：我正在编写一个生成 Bash脚本的Perl脚本.我使用open()模式将所有内容输出到新文件.标准的东西： open (FILEOUT,"","rename.sh") or die "Can't create rename.sh"; 所得到的.sh文件是只读的,八进制值为444.在perldoc中,我可以添加到 (打开(FILEOUT,“”,“re

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

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

所得到的.sh文件是只读的,八进制值为444.在perldoc中,我可以添加到> (打开(FILEOUT,“>”,“rename.sh”))使新创建的文件可读写,或666.

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

解决方法

你会想要 chmod这样的文件.

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!