Как в Perl пометить сгенерированный файл как исполняемый?

Question

В моем сценарии на Perl я создаю сценарий оболочки (что-то для последующей обработки результатов длительного моделирования) Я хочу пометить этот файл как исполняемый.

$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.