Perl语言入门(第五版) 读书笔记（七）---目录操作

第十三章 目录操作

1. chdir 函数用来改变工作目录；每次目录更改后都应检查错误标量$!；

chdir "/etc" or die " Can not chdir /etc:$!\n";

2. glob文件名模式匹配 my @files = glob "/etc/*.pm /etc/*.pl"; #匹配多种模式用空格隔开

<>文件名模式匹配 my @files = <$dir/* $dir/.pm> #匹配多种模式用空格隔开

3. 目录句柄

opendir DIR, "/etc" or die "opendir /etc failed:$!\n"; #打开目录句柄

readdir DIR; #从目录中读取文件名列表,包含所有文件(包括点号开头的),不包含路径名称

while ($name = readdir DIR) {

next unless $name =~ /\.pm$/;

}

closedir DIR;

递归目录列表用File::Find模块

4. 删除文件

unlink "/etc/aaa","/etc/bbb","/etc/ccc";

unlink glob "/etc/*.pm"

5. 文件重命名

rename "old", "new";

6. 链接文件

link创建一个硬链接: link "old","new";

symlink 创建一个符号链接:sysmlink "old","new";

readlink "new"; 获取链接文件的实际位置

7. 目录操作

mkdir "$filedir"; #权限则默认设为0777；

mkdir "$filedir", 0755; #或者oct($mask), 权限必须为8进制数,字符串也不行

rmdir $filedir; #删除空目录

/tmp/file_$$ # $$代表当前进程号

File::Path模块提供了更高级的目录操作

8. 修改文件权限与隶属关系

chmod 0755, "fred", "barney"; #返回值为修改文件的数量

$uid = getpwnam("user"); #将用户名翻译为数字

$gid = getgrname("group"); #将组名翻译为数字

chown $uid, $gid, @filenames;更改文件的拥有者及其所属的组,文件可以是列表

9. 修改时间戳

utime前两个参数是新的访问时间和新的修改时间，后面的参数是文件名列表;

utime $now, $ago, glob "*.pm" ;