在 Perl 中，如何将生成的文件标记为可执行？

Question

在我的 perl 脚本中，我创建了一个 shell 脚本（用于对长时间模拟的结果进行后处理）。我想将此文件标记为可执行文件。

$fileName = 'postProcess.tcsh';

显然，我可以执行以下操作：

system("chmod +x $fileName");

但我很好奇是否有一种解决方案可以避免系统调用。换句话说，File 模块中可能有一个方法吗？诸位僧人怎么说？

Answer 1

您可以使用 Perl 的内置 chmod 函数：

chmod 0755, $fileName;

Answer 2

您可以在首次创建文件时设置模式。

use Fcntl;
sysopen my $fh, $filename, O_WRONLY|O_CREAT|O_EXCL, 0777;
# instead of
#open my $fh, '>', $filename;

0777 模式将为 & 以及您当前的 umask。