Perl语言入门

248

｜

第

13

章

修改权限

Unix

的

chmod

命令可用来修改文件或目录的权限。

Perl

里对应的

chmod

函数也能进

行同样的操作：

chmod 0755, 'fred', 'barney';

和许多其他操作系统的接口函数一样，

chmod

会返回成功更改的条目数量。如果只提

供了一个参数，它会在失败时将

$!

设成合理的错误信息。第一个参数代表

Unix

的权

限值（即使在非

Unix

的

Perl

版本里也一样）。这个值通常会写成八进制形式，理由

和前面介绍

mkdir

时相同。

Unix

的

chmod

命令能接受用符号表示的权限（例如

+x

或

go=u-w

），但是

chmod

函数

并不接受这类参数。

除非你从

CPAN

安装了

File::chmod

模块，这个模块能使

chmod

操作符升级，

从而支持符号表示的权限值。

修改文件属主

只要操作系统允许，你可以用

chown

函数修改一系列文件的属主以及其用户组。属主

和用户组会被同时更改，并且在指定时必须给出数字形式的用户标识符及组标识符。

比如：

my $user = 1004;

my $group = 100;

chown $user, $group, glob '*.o';

如果要处理的不是数字，而是像

merlyn

这样的字符串呢？答案很简单，只要

用

getpwnam

函数将用户名转换成用户编号，用相应的

getgrnam

函数把用户组名转换

成组编号：

defined(my $user = getpwnam 'merlyn') ...