Perl文件及目录操作
发布时间：2020-12-15 23:49:56 所属栏目：大数据 来源：网络整理
导读：大多数程序都不是孤立的,它们与它们的环境相互作用。很多的程序也需要通过文件操作实现数据的存贮和交换。?文件句柄(file?handle)是Perl程序中为程序和外部世界提供I/O连接的名称。建议全部使用大写字母以示与变量等的区别。特别地，也可以将STDIN/STDOUT/ST
|
大多数程序都不是孤立的,它们与它们的环境相互作用。很多的程序也需要通过文件操作实现数据的存贮和交换。?文件句柄(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/outfilen";?? 当只有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目录"。 （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |