Изменение прав доступа к файлам в Perl

Question

я создаю файл с кодом ниже:

open DINFO, ">>","Mylocation/$NAME/domain_info.txt" or dir $!; 
print DINFO "$_[0]:$_[1]:$_[2]\n"; 
close DINFO; 

Я хочу «domain_info.txt» файл должен быть создан с разрешением файла 644. Как я могу перенаправить разрешение в самом коде. Пожалуйста помоги.

Answer 1

Проверить umask от perldoc

Umask Устанавливает биты полномочий для процесса Expr и возвращает предыдущее значение. Если EXPR опущен, он просто возвращает текущий umask.

# newly created files will have 644 permissions 
my $old_umask = umask(0777-0644); 
# open my $fh, ">>", .. 

# set back old umask 
umask($old_umask);