Perl 文件操作
一:打开文件open(MyFile, "文件") or die("Can't open file. $!");
open(MyFile, "<文件") || die("Can't open file."); // 同上,以读的模式打开文件
open(MyFile, ">文件") || die("Can't write file."); // 以写的模式打开文件
open(MyFile, ">>文件") || die("Can't append file."); // 以追加模式打开文件
二:关闭文件
close(MyFile);
三:读文件
1.逐行读
while(my $line = <MyFile>) {
# 对$line进行操作
}
2.全部读
@allLine = <MyFile>;
#对@allLine进行操作
3.读其它格式的文件
.gz格式文件
open(FIN,"gzip -dc $infilename|") or die ("can not open $infilename\n");
.tgz(.tar.gz)格式文件
open(FIN,"tar -xf $infilename -o|") or die ("can not open $infilename\n");
7zip格式文件
open(FIN,"7za e -so $infilename|") or die ("can not open $infilename\n");
四:写文件
首先以写模式或追加模式打开文件
print MyFile "输出内容";
五:对文件进行操作
1.对文件属性进行判断
-r # 文件或目录,对目前(有效的)用户或组可读
-w # 基本同上,可写
-x # 可执行
-o # 拥有
-R # 文件或目录,对实际的用户或组可读
-W # 可写
-X # 可执行
-O # 拥有
-e # 是存在的
-z # 存在但为空(对目录而言,永远为假)
-s # 存在不为空,返回以字节为单位的大小数值
-f # 普通文件
-d # 目录
-l # 符号链接
-S # socket类型文件
-p # 管道
-b # 块设备文件(磁盘)
-c # 字符设备文件(I/O设备)
-u # 设置了setuid位
-g # 设置了setgid位
-k # 设置了sticky位
-t # 文件句柄是TTY设置
-T # 看起来像是文本文件
-B # 看起来像是二进制文件
-M # 最后一次修改后至今天的天数
-A # 最后一次访问到今天的天数
-C # 最后一次文件节点修改后至今天的天数
2.删除文件
六:对目录进行操作
实例代码
递归遍历目录,并对文件进行处理
#用户递归遍历$FilePath下所有文件和目录
sub myOpen {
my($path) = @_;
if( -d $path ) {
# 打开目录
opendir(DIR,$path) or die "Can't open $path. $!";
# 读取目录下所有文件
while( my @Files = readdir(DIR) ) {
foreach $file (@Files) {
# 过滤掉隐藏文件
next if $file =~ /^\./;
$eachFile = $path . $file . "/";
if( -d $eachFile ) {
#如果当前文件是目录,则递归遍历
&myOpen($eachFile);
} else {
#如果当前文件是普通文件,则解析之
&prase($path,$file);
}
}
}
} else {
print "error \n";
return 0;
}
}
页:
[1]