一:打开文件
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; } }