请问小骆驼书后的一个习题

dianachris

UID: 40998
帖子: 197
积分: 453
在线时间: 2 天 5 小时

1^# dianachris 发表于 2009-01-07 22:21

请问小骆驼书后的一个习题

第11章第1题

[Copy to clipboard] [ - ]

CODE:

foreach my $file(@ARGV){
my $attribs = &attributes($file);
print "'file' $attribs.\n";
}
sub attributes{
my $file = shift @_;
return "does not exist" unless -e $file;
my @attrib;
push @attrib,"readable" if -r _;
push @attrib,"writable" if -w _;
push @attrib,"executable" if -x _;
return "exists" unless @attrib;
'is' . join " and ",@attrib;
}

这段程序，小骆驼书后的习题，我运行的时候把一个文件chmod 0 file了，但是测试出来这个文件事可读可写的，这是为什么呀

dianachris

UID: 40998
帖子: 197
积分: 453
在线时间: 2 天 5 小时

2^# dianachris 发表于 2009-01-08 09:25

昨天试了下，根目录下创建的文件chmod 0 之后ls看的时候是－－－－－－－－－－
但用上面程序测是可读可写的。切换到一般用户后就是不可读写了。难道root能对所有文件进行读写，chmod对root用户没有作用？那为什么ls显示的时候不显示-rw-------呢？

odacharlee

UID: 7090
帖子: 37
积分: 85
在线时间: 2 小时

3^# odacharlee 发表于 2009-01-08 09:55

无论什么所有者、什么权限，root都可读可写。
要不然怎么叫root呢，对一切魔法免疫。

odacharlee

UID: 7090
帖子: 37
积分: 85
在线时间: 2 小时

4^# odacharlee 发表于 2009-01-08 09:56

另外平时要养成不用root的好习惯
否则会有许多意想不到的麻烦。

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

5^# churchmice 发表于 2009-01-08 10:20

[Copy to clipboard] [ - ]

CODE:

perldoc -f -r

QUOTE:

Also note that, for the superuser on the local filesystems, the
         "-r", "-R", "-w", and "-W" tests always return 1, and "-x" and
         "-X" return 1 if any execute bit is set in the mode. Scripts run
         by the superuser may thus need to do a stat() to determine the
         actual mode of the file, or temporarily set their effective uid
         to something else.

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

6^# ynchnluiti 发表于 2009-01-09 09:57

QUOTE:

原帖由 churchmice 于 2009-1-8 10:20 发表

perldoc -f -r

-r 可以这样perldoc啊

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

7^# MMMIX 发表于 2009-01-09 11:53

QUOTE:

原帖由 ynchnluiti 于 2009-1-9 09:57 发表

-r 可以这样perldoc啊

Perl 的许多 operatoer 都可以这么着，它的优先级和 named unary operator 一致。

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

8^# ynchnluiti 发表于 2009-01-09 12:14

QUOTE:

原帖由 MMMIX 于 2009-1-9 11:53 发表

Perl 的许多 operatoer 都可以这么着，它的优先级和 named unary operator 一致。

没这么查过，一直以为只能man或doc字母
得定下心来好好看看文档

QUOTE:

Regarding precedence, the filetest operators, like "-f", "-M", etc. are treated like named unary operators, but they don't follow this functional parenthesis rule. That means, for example, that "-f($file).".bak"" is equivalent to "-f "$file.bak"".