Perl文件及目录操作

发布时间：2020-12-15 20:52:38 所属栏目：大数据来源：网络整理

导读：!-- /* Font Definitions */ @font-face {font-family:宋体; panose-1:2 1 6 0 3 1 1 1 1 1; mso-font-alt:SimSun; mso-font-charset:134; mso-generic-font-family:auto; mso-font-pitch:variable; mso-font-signature:3 680460288 22 0 262145 0;} @font-f

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 目录 " 。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!