perl 文件[四]

最新推荐文章于 2020-11-24 10:49:14 发布

scan724

最新推荐文章于 2020-11-24 10:49:14 发布

阅读量665

点赞数

分类专栏： Perl开发

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/40397933

版权

Perl开发专栏收录该内容

46 篇文章 30 订阅 ¥39.90 ¥99.00

订阅专栏

这篇博客介绍了Perl中检查文件存在、是否为空的命令，如-e和-s，以及如何使用glob进行文件匹配。讨论了glob的限制和不同用法，包括匹配规则如?、*和{}。还提到了truncate函数用于调整文件长度，以及rename函数用于重命名或移动文件。最后，文章通过示例展示了尝试使用rmdir删除非空目录时会遇到的问题。

摘要由CSDN通过智能技术生成

-e 文件是否存在

-s 是否为空

文件操作
glob  

@a=glob("*.txt") 返回与模式匹配的所有文件目录。如果赋值给简单变量则一次只返回一个文件.

参数可以是文件名或目录

只能接受有限的文件数,报文件太多错误。用shell来执行的,

因为用shell用来解释执行,故运行速度慢。

另一种形式是@a=<*.txt>,是古老的用法,推荐用glob

? 匹配单个字符

* 任何数目的字符

[ab]ab 中的任一个

{a,b.....}匹配a或b，a,b可以不是单字符,如{txt,doc}

truncate(file,length):将文件的长度减少到length字节.如果文件长度已经小于length，

则不做任何事。其中filename可以为文件名,也可以为文件变量。

rename(old,new)成功=1 可以从一个目录移动到另一个目录。不检查new是否存在,可能破坏文件


#!/usr/bin/perl
rmdir(aa) || die $!;
[oracle@jhoa 13]$ perl a1.pl 
Directory not empty at a1.pl line 2.

rmdir :用于删除空目录