寫入現有文件並更改權限

Question

我正在嘗試寫入現有文件並同時更改其權限。例如：

use warnings; 
use strict; 
use File::Slurp 'write_file'; 

my $script="#! /bin/bash 
echo \"Hello\" 
"; 

my $saveName='test.sh'; 
unlink $saveName if -f $saveName; 
writeFile($saveName,$script,0755); 
writeFile($saveName,$script,0775); 


sub writeFile { 
    my ($saveName,$script,$mode) = @_; 

    printf "Writing file with permissions %04o\n", $mode & 07777; 
    write_file($saveName,{perms=>$mode},\$script); 
    my $actualMode = (stat($saveName))[2]; 
    printf "Actual file permissions are %04o\n", $actualMode & 07777; 
} 

這使輸出：

Writing file with permissions 0755 
Actual file permissions are 0755 
Writing file with permissions 0775 
Actual file permissions are 0755 

爲什麼是第二寫操作之後的許可仍然0755？ （我會想到它是0775）

Answer 1

從the documentation：

perms 

The perms option sets the permissions of newly-created files. This value is 
modified by your process's umask and defaults to 0666 (same as sysopen). 

注 「新建」 這個詞。

此行爲並非由模塊決定，而是由核心sysopen決定。從File::Slurp來源：

   my $perms = $opts->{perms} ; 
       $perms = 0666 unless defined $perms ; 

#printf "WR: BINARY %x MODE %x\n", O_BINARY, $mode ; 

# open the file and handle any error. 

       $write_fh = local(*FH) ; 
#    $write_fh = gensym ; 
       unless (sysopen($write_fh, $file_name, $mode, $perms)) { 

我們看到sysopen使用。在the documentation for sysopen它說：

如果由filename 命名的文件不存在，並公開徵集創建它（通常是因爲MODE包括O_CREAT標誌），然後燙髮值指定新創建的權限文件。