perl学习-第十章

最新推荐文章于 2021-01-14 20:26:12 发布

chgx09

最新推荐文章于 2021-01-14 20:26:12 发布

阅读量448

点赞数

分类专栏： perl 文章标签： perl permissions 正则表达式 file delete list

本文链接：https://blog.csdn.net/chgx09/article/details/6281035

版权

这篇博客详细介绍了Perl中处理文件和目录的各种操作，包括如何打开和关闭目录、获取目录列表、过滤特定文件、读取文件、改变目录、创建和删除文件及目录、使用正则表达式匹配文件名，以及进行文件重命名和获取文件信息的方法。

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

今天早上起来学习第十章

#第十章文件与目录
#1如何获得目录列表 2如何创建和删除文件 3 如何创建和删除目录 4如何获取关于文件的信息
opendir(TEMPDIR,'C:/PERL/TEMP') || die "cannot open C:/PERL/TEMP/: $!";#打开c:/perl/bin目录,如果失败则停止打开并给出出错信息
@files=readdir(TEMPDIR); #读取目录

@files=grep(!/^/./.?$/,readdir TEMPDIR);    #用正则表达式清除.和..文件
@files=grep(/^/.TXT$/I,readdir,TEMPDIR);    #用正则表达式获得带有.txt扩展名的全部文件，注意，readdir返回的文件名并不包含opendir使用的路径名
while($file=readdir TEMPDIR){
    open(FILEH,"C:/PERL/$file")|| die "cannot open $file:$!/n";#打开文件时要使用路径
}
closedir (TEMPDIR);       #关闭目录
exit 0;

#globbing 只能返回有限个数量的文件，目录下有太多文件时将会报告“文件太多”不返回任何文件；glob 能返回路径，这个比较有用，；glob速度比较慢，效率较低，因为其实现要使用外部程序即shell来实现。
#下面是一个使用glob的例子    glob的句法 glob pattern
my @hfiles=glob('/usr/include/*.h');     #返回/usr/include/下