为使用 Perl 中的 open 函数打开/创建的动态文件授予 777 权限

Question

我有一个 Perl 脚本，它使用以下命令打开一个文件：

open(FH,">", $path);

但问题是这给了文件只有644个权限(rw-r--r--)。但我想对动态创建的文件拥有 777 权限。 我每天从作业调度程序运行此脚本一次，并使用 sysopen 功能，但在一次执行后，它的权限再次变为 644。

另外代码是从远程 git 存储库（主线/主分支）中提取的，此存储库具有该文件的 644 权限。这是在制造问题吗？将文件的模式更改为 777 并推送到远程仓库，然后使用 sysopen 功能可以吗？

我想确定是什么问题，然后只将主线分支上的任何内容更改为关键分支。

有什么解决办法？

Answer 1

sysopen可以帮到你。

sysopen(FILEHANDLE, $filename, permissions, CHMOD);

>> 此运算符用于附加文件。它不会改变权限。

旁注：始终使用die 和$! 处理文件错误。