perl文件和目录操作

perl文件和目录操作,第1张

概述文件检测操作符 -e 文件是否存在 -f 文件是普通文件 -d 文件是目录 -r 文件是否可读 -w 文件时候可写 -x 文件是否可执行 -s 文件存在且大小非零,返回文件大小的字节数 -z 文件存在且大小为0 -B 文件是二进制文件 -T 文件是文本文件 -A 距离上次文件被访问年限 -M 距离上次文件被修改年限            int(var) 函数取整 -C 距离创建文件的年限    
文件检测操作符
-e 文件是否存在
-f 文件是普通文件
-d 文件是目录
-r 文件是否可读
-w 文件时候可写
-x 文件是否可执行
-s 文件存在且大小非零,返回文件大小的字节数
-z 文件存在且大小为0
-B 文件是二进制文件
-T 文件是文本文件
-A 距离上次文件被访问年限
-M 距离上次文件被修改年限            int(var) 函数取整
-C 距离创建文件的年限
   
   
更改访问许可权限 chmod (mode,fileList)  mode为四位数字,0XXX 文件重命名: rename (filename,newfilename) 注:创建新文件,旧文件删除,如果已存在newfilename文件则覆盖 。成功返回1 删除文件 unlink (fileList) 即删除所有硬链接,返回删除文件个数 文件通配: glob("标识") # 引号不能少 <"标识"> 标量环境:返回匹配的第一个文件 列表环境:返回匹配的文件列表 目录操作: opendir (DIR,fileDir) readdir(DIR) 返回文件列表 closedir DIR 需求实例:遍历一个文件夹,并将其中的某些文件更名

#  功能:将目标目录下的以.logbak结尾的文件更名为.log  目录操作函数可以在相对路径下工作

use  strict;

 warnings;


sub  changename {

    
chdir   shift ;

    
print  `pwd`;   打印当前目录      for my   $file  ( glob ( " * )) {    glob不会包含.和.. 目录          if - ) {

            
 ( );    子目录一直保持在当前目录工作              & changename(`pwd`);

            
.. );

        }

        
elsif && =~ / .+ )( . logbak)$ i) {

            
f $ 1 .log ) {   防止更名误覆盖文件                  rename  ($ , $ .newlog );

            }

            
);

        }

    }

}

            


changename(  参数为目标目录


$path =  `pwd`;

chomp ;       `pwd`命令结尾有个回车符,需要chomp去掉 $path  ;

opendir  DIR  || dIE cant open $! foreach readdir  DIR) {      readdir 将读出所有的文件和目录,包括.和.. $file  ;

}
总结

以上是内存溢出为你收集整理的perl文件和目录操作全部内容,希望文章能够帮你解决perl文件和目录操作所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。

欢迎分享,转载请注明来源:内存溢出

原文地址:http://outofmemory.cn/langs/1294460.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2022-06-10
下一篇2022-06-10

发表评论

登录后才能评论

评论列表(0条)

    保存