Perl入门（五）Perl文件读写

张颢镡

　　http://blog.csdn.net/sunshoupo211
　　Perl文件夹操作
　　Perl创建、删除、修改文件夹
　　mkdir("文件夹名称",权限);
　　rmdir("文件夹名称");
　　rename("旧文件夹名称","新文件夹名称")；
　　权限：4代表可读，2代表可写，1代表可执行；权限的组成：[前缀0][文件所有者][同组用户][其他用户]。
　　生成的数字序列由拥有的权限对应的数字加和计算得到。
　　如‘0755’代表：文件所有者可读可写可执行，同组用户可读可执行，其他用户可读可执行。
　　注意：
　　一次只能创建/删除一个文件夹；
　　删除的文件夹必须为空文件夹；
　　为了更安全的操作文件夹，一般在各种操作后添加“|| die "失败描述信息$!"”,意思为：“如果失败了，输出信息，然后终结进程”。另外$!是系统错误提示信息。
　　[python] view plain copy
　　#!user/bin/env perl -w
　　#预定义两个文件夹路径
　　@dirs=("newFolder","newFolder/insideFolder1","newFolder/insideFolder2");
　　#创建文件夹
　　#Perl mkdir 只能创建最后端的文件夹，它认为中间的文件夹都是已经存在了的
　　#如果你先执行下面这句，则会告诉你找不到这样的文件夹
　　#mkdir ($dirs[1],0755) || die "folder $dirs[1] can not be created! cause by:$!" ;
　　foreach $dir (@dirs)
　　{
　　mkdir ($dir,0777) || die "folder $dir can not be created! cause by:$!";
　　}
　　#rename方法可以更改文件夹名称
　　rename("newFolder/insideFolder1","newFolder/insideFolder3")||die "rename folder failed! cause by:$!";
　　#删除文件夹,被删除的文件夹必须为空
　　rmdir($dirs[2]) || die "remove folder failed!cause by:$!";
　　Perl获取文件夹列表
　　1.获取文件夹操作句柄
　　opendir(句柄名称，文件夹路径)；
　　2.读取文件列表
　　readdir(句柄名称);
　　3.关闭文件句柄
　　closedir(句柄名称);
　　其他方法：
　　1.glob获取文件夹下列表
　　glob(文件夹路径/);
　　2.glob方法的简写
　　；
　　XXXXdir和glob方法对比：
　　1.glob方法返回文件数量有限，如果文件夹下文件过多，则只会提示“过多的内容”；
　　2.glob方法返回的文件列表带路径；
　　3.glob方法由于是调用本地机器的方法协助工作，故效率低。
　　[python] view plain copy
　　#!user/bin/env perl -w
　　#获取文件夹列表
　　opendir (FOLDER,"newFolder") || die "can not open folder!cause by:$!";
　　my @folders1 = readdir(FOLDER);
　　#如只需要某一些满足条件的内容,可以使用下面写法
　　#my @folders = grep(!/.+/,readdir(FOLDER));
　　foreach $file (@folders1)
　　{
　　print "$file\n";
　　}
　　closedir(FOLDER);
　　print "-" x 50;
　　print "\n";
　　my @folders2 = glob("newFolder/");  
　　#简化为：my @folders = ;
　　foreach $file (@folders2)
　　{
　　print "$file\n";
　　}
　　输出结果：
　　[java] view plain copy
　　.
　　..
　　insideFolder1
　　insideFolder2
　　newFolder/insideFolder1
　　newFolder/insideFolder2
　　版权声明：本文为博主原创文章，未经博主允许不得转载。
　　本文已收录于以下专栏：perl学习