Perl文件和目录操作

rfcd12

　　Perl操作文件
　　-e 判断文件是否存在
　　die “Oops! A file called‘$filename’already exists.\n”; if –e $filename;
　　-M 查看文件多久没有修改
　　warn “Config file is looking pretty old!\n”; if –M CONFIG > 28; (文件在过去的28天都没修改过)
　　example：
　　找到大于100K，并且在90天内未被访问过的文件
　　my@ariginal_files = qw/ fred barney betty Wilma pebbles dino bam-bamm/;
my @big_old_files; #要移到备份磁带上的文件
foreach my $filename (@original_files){
push @big_old_files, $filename
if –s $filename > 100_100 and –A $filename > 90;
}
　　检测选项含义
-r 文件或目录对此（有效的）用户（effective user）或组是可读的
-w 文件或目录对此（有效的）用户或组是可写的
-x 文件或目录对此（有效的）用户或组是可执行的
-o 文件或目录由本（有效的）用户所有
-R 文件或目录对此用户(real user)或组是可读的
-W 文件或目录对此用户或组是可写的
-X 文件或目录对此用户或组是可执行的
-O 文件或目录由本用户所有
-e 文件或目录名存在
-z 文件存在，大小为0（目录恒为false）
-s 文件或目录存在，大小大于0（值为文件的大小，单位：字节）
-f 为普通文本
-d 为目录
-l 为符号链接
-S 为socket
-p 为管道(Entry is a named pipe(a“fifo”))
-b 为block-special 文件（如挂载磁盘）
-c 为character-special 文件（如I/O 设备）
-u setuid 的文件或目录
-g setgid 的文件或目录
-k File or directory has the sticky bit set
-t 文件句柄为TTY(系统函数isatty()的返回结果；不能对文件名使用这个测试)
-T 文件有些像“文本”文件
-B 文件有些像“二进制”文件
-M 修改的时间（单位：天）
-A 访问的时间（单位：天）
-C 索引节点修改时间（单位：天）
　　
　　目录操作：
　　chdir　　改变工作目录
　　chdir “/etc”or die “cannot chdir to /etc: $!”;
　　glob　　文件名匹配
　　my @pm_files = glob “*.pm”　　匹配所有.pm文件
　　unlink　　删除文件 （返回值为成功删除的文件个数）
　　unlink “slate”, “bedrock”, “lava”;
　　unlink glob “*.o”;　　删除所有.o文件
　　rename　　重命名 （类似于mv）
　　rename “old”, “new”;
　　link　　硬连接
　　symlink　　软连接
　　mkdir　　创建目录
　　mkdir “fred”, 0755 or warn “Cannot make fred directory: $!”;
　　my ($name, $perm) = @ARGV; #前面两个参数是名字和权限
　　mkdir $name, oct($perm) or die “cannot create $name: $!”; #oct将参数强制转为8进制，不管前面有没有0
　　
　　
　　目录句柄
　　从给定目录得到其文件名列表的方法还可以使用目录句柄（directory handle）。目录句柄外形及其行为都很像文件句柄。打
开（使用opendir 而非open），从中读入（使用readdir 而非readline），关闭（使用closedir 而非close）。不是读入文件的内
容，而是将一个目录中的文件名（以及一些其它东西）读入，如：
　　my $dir_to_process = “/etc”
　　opendir DH, $dir_to_process or die “Cannot open $dir_to_process: $!”;
foreach $file(readdir DH) {
print “one file in $dir_to_process is $file\n”;
}
closedir DH;
　　readdir用在while中
　　while ($name = readdir DIR) {
next unless $name =~ /\.pm$/;
… more processing…
}