파일 특성이 작동하지 않습니다.

Question

읽기 전용 파일을 만든 다음 파일 특성을 사용하여 읽고 쓸 수 있는지 확인하려고 시도하지만 항상 읽기 쉽고 쓰기 가능한 파일을 반환합니다.

무엇이 잘못 되었나요? 여기

use strict; 
    use Fcntl; 
    sysopen(DATA, "file.txt", O_CREAT | O_RDONLY); 
    print DATA "Bob\n"; 
    close (DATA); 

    my $file='file.txt'; 
    my (@description,$size); 
    if (-e $file) 
    { 
    push @description, 'readable' if (-r _); 
    push @description, 'writable' if (-w _); 
    push @description, (($size = -s _)) ? "$size bytes" : 'empty'; 
    print "$file is ", join(', ',@description),"\n"; 
    } 

무엇을 printted된다

누군가가 제발 도와 드릴까요?

Answer 1

umask 값과 함께 PERMS 기본값 인 0666이 사용자에게 쓰기 가능한 파일을 제공합니다. umask을 변경하거나 PERMS 인수를 sysopen에 추가하십시오. 예를 읽기 전용 파일을 얻을 경우, 당신은 umask를 0022 기본적 때, 당신은 할 수 :

sysopen(DATA, "file.txt", O_CREAT | O_RDONLY, 0466);