Perl文件及目录操作

关注

原创最新推荐文章于 2026-06-07 13:43:45 发布 771 阅读 AI 写同款· GEO 优化 ›

Perl编程实例：文件与目录操作本文介绍了多个使用Perl语言实现的编程实例，涵盖文件操作、目录处理、符号链接识别、字符串匹配、正则表达式交互、文件时间戳获取、基本数学计算等功能。示例包括rm和mv命令的实现、信号处理、用户输入交互等，适用于熟悉Perl脚本开发的开发者。阅读详情

Perl文件及目录操作

大多数程序都不是孤立的 , 它们与它们的环境相互作用。很多的程序也需要通过文件操作实现数据的存贮和交换。文件句柄 (file handle) 是 Perl 程序中为程序和外部世界提供 I/O 连接的名称。建议全部使用大写字母以示与变量等的区别。特别地，也可以将 STDIN/STDOUT/STDERR 也认为是 Perl 的文件句柄，分别代表标准输入 / 标准输出 / 标准错误输出。

打开及关闭文件

　　 Perl 的文件操作与 C 语言极为相似。如：

open(FILENAME,"abc.txt");

　　该调用为读文件打开，若为写文件而打开，需在文件名前加上大于号：

open(FILENAME,">abc.txt");

　　若要追加至文件尾，可在文件名前加上两个大于号：

open(FILENAME,">>abc.txt");

　　以上三种 open() 格式在成功时返回真，失败时返回假。但程序中通常没有提示，出错时往往会被人们忽略。通常当需要给出出错提示时，可加入 die() 函数。例：

open(OUTFILE,">/tmp/outfile")||
die " 出错，不能建立 /tmp/outfile/n";

　　当只有 open 失败时，才会执行 die 给出出错提示。

　　对文件句柄的操作完成后，可以用 close 操作符关闭文件。如：

close(OUTFILE);

-x 文件测试

　　 Perl 的文件操作也可以先测试文件是否存在，是否可读写等。如：

$x="abc.txt";
if(-e $x) { #abc.txt 是否存在？
# 存在操作
} else {
printf " 文件不存在。 /n";
}

-e 操作符测试文件或目录是否存在。

　　以下为文件测试清单：

文件测试测试操作符提供的信息
-r 文件或目录可读
-w 文件或目录可写
-x 文件或目录执行
-o 文件或目录归用户所有
-R 文件或目录对真正用户可读
-W 文件或目录对真正用户可写
-X 文件或目录对真正用户执行
-O 文件或目录归真正用户所有
-e 文件或目录存在
-z 文件存在且大小为 0
-s 文件或目录存在且不为 0( 返回字节数 )
-f 文件为普通文件
-d 文件为目录
-l 文件为符号链接
-p 文件为命名管道 (FIFO)
-S 文件为一个套口 (socket)
-b 文件为块特殊文件
-c 文件为字符特殊文件
-t 打开 tty 控制台的文件句柄
-u 文件或目录是设置用户 ID 号
-g 文件或目录是设置用户组 ID 号
-k 文件或目录的 sticky 位置位
-T 文件是文本文件
-B 文件是二进制文件
-M 以天为单位的存在时间
-A 以天为单位访问时间
-C 以天为单位同代码更改时间

删除文件

　　 Perl 的 unlink() 操作符可实现删除文件。如：

unlink("abc.txt"); # 删除 abc.txt

文件重命名

　　 Perl 的 rename() 操作符可实现文件重命名。如：

rename("abc","zmd")||die " 出错 , 不能更名 ";

　　此时将 abc 更名为 zmd ，成功返回真，否则给出出错提示。

目录操作

　　 Perl 中处理目录非常类似于处理文件。

　　打开目录句柄：

opendir(ETC,"/etc")||die " 出错 , 不能打开目录 ";

　　关闭目录句柄：

closedir(ETC);

　　创建目录：

mkdir("zmd",0777)||die " 不能创建 zmd 目录 ";

　　 0777 为内部权限格式。

　　删除目录：

rmdir("zmd")||die " 不能删除 zmd 目录 " 。