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" ;