空间管理您的位置: 分析测试百科网 » 春粟 » 博客

perl文件和目录操作

上一篇 / 下一篇 2012-10-25 18:16:50

查看( 84 ) / 评论( 0 ) / 评分( 0 / 0 )

**文件检测操作符**
-e	文件是否存在
-f	文件是普通文件
-d	文件是目录
-r	文件是否可读
-w	文件时候可写
-x	文件是否可执行
-s	文件存在且大小非零，返回文件大小的字节数
-z	文件存在且大小为0
-B	文件是二进制文件
-T	文件是文本文件
-A	距离上次文件被访问年限
-M	距离上次文件被修改年限 int（var）函数取整
-C	距离创建文件的年限

更改访问许可权限

chmod (mode , fileList) mode为四位数字, 0XXX

文件重命名：

rename (fileName, newFileName)

注：创建新文件，旧文件删除，如果已存在newFileName文件则覆盖。成功返回1

删除文件

unlink （fileList）即删除所有硬链接，返回删除文件个数

文件通配：

glob("标识") # 引号不能少

<"标识">

标量环境：返回匹配的第一个文件

列表环境：返回匹配的文件列表

目录操作：

opendir (DIR, fileDir)

readdir(DIR) 返回文件列表

closedir DIR

需求实例：遍历一个文件夹，并将其中的某些文件更名

# 功能：将目标目录下的以.logbak结尾的文件更名为.log

# 目录操作函数可以在相对路径下工作

use strict;

use warnings;

sub changeName {

chdir shift;

print `pwd`; # 打印当前目录

for my $file (glob("*")) { # glob不会包含.和.. 目录

if (-d $file) {

chdir ($file); # 子目录一直保持在当前目录工作

&changeName(`pwd`);

chdir ("..");

}

elsif (-f $file && $file =~ /(.+)(.logbak)$/i) {

if (-f $1.".log") { # 防止更名误覆盖文件

rename ($1.".log",$1.".newlog");

}

rename ($file,$1.".log");

}

}

}

&changeName(shift); # 参数为目标目录

my $path = `pwd`;

chomp $path; # `pwd`命令结尾有个回车符，需要chomp去掉

print "$path ";

opendir DIR ,$path || die "cant open $!";

foreach my $file (readdir DIR) { # readdir 将读出所有的文件和目录，包括.和..

print "$file ";

}

导入论坛收藏分享给好友推荐到圈子管理举报

TAG:

查看全部评论

用户菜单

标题搜索

日历

数据统计

访问量: 2524
日志数: 62
建立时间: 2011-08-27
更新时间: 2015-11-02

RSS订阅