如何测试文件只读属性？

yoursmile

下面的这段代码按道理应该可以测试文件只读属性的。可是为什么即使把文件所有属性都去掉，程序仍然还是显示"ok"?

1. #!/usr/bin/perl
   
2. unless (open(MYFILE, "file1")) {
   
3.       if (!(-e "file1")) {
   
4.               die ("File file1 does not exist.\n");
   
5.       } elsif (!(-r "file1")) {
   
6.               die ("You are not allowed to read file1.\n");
   
7.       } else {
   
8.               die ("File1 cannot be opened\n");
   
9.       }
   
10. }
    
11. print ("ok\n");

复制代码

怒剑狂啸

程序是以root用户运行的么？

yoursmile

[quote]原帖由 "怒剑狂啸"]程序是以root用户运行的么？[/quote 发表：

是啊。
和这个有关系么？
但是我把r属性去了啊。

lovepl

测试属性的这些标志后应该跟着的是filehandle
而且，-r测试的是文件是否可写，而不是是否有“只读”属性

麻辣

原帖由 "lovepl" 发表：
测试属性的这些标志后应该跟着的是filehandle
而且，-r测试的是文件是否可写，而不是是否有“只读”属性

我的笨方法是，直接测试
my $check1=0;

my $check2=0;

open (FILE,"$path/temp.txt" or $check1=1;#说明不可读";
open (FILE,">;>;$path/temp.txt" or $check2=1;#说明不可写;

if ($check1!=1 && $check2==2){print"文件属性为只读";}