perl文件和目录 *** 作

概述文件检测 *** 作符 -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 - d  ) {

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

             .. );

        }

         elsif f  && =~ / .+ )( . 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文件和目录 *** 作所遇到的程序开发问题。

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