Perl文件夹 *** 作
Perl创建、删除、修改文件夹
mkdir("文件夹名称",权限);
rmdir("文件夹名称");
rename("旧文件夹名称","新文件夹名称");
权限:4代表可读,2代表可写,1代表可执行;权限的组成:[前缀0][文件所有者][同组用户][其他用户]。
生成的数字序列由拥有的权限对应的数字加和计算得到。
如‘0755’代表:文件所有者可读可写可执行,同组用户可读可执行,其他用户可读可执行。
注意:
一次只能创建/删除一个文件夹; 删除的文件夹必须为空文件夹; 为了更安全的 *** 作文件夹,一般在各种 *** 作后添加“|| dIE "失败描述信息$!"”,意思为:“如果失败了,输出信息,然后终结进程”。另外$!是系统错误提示信息。#!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方法由于是调用本地机器的方法协助工作,故效率低。
#!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 = <"newFolder/*">;foreach $file (@folders2){ print "$file\n";}
输出结果:
...insIDeFolder1insIDeFolder2--------------------------------------------------newFolder/insIDeFolder1newFolder/insIDeFolder2总结
以上是内存溢出为你收集整理的Perl入门(五)Perl文件读写全部内容,希望文章能够帮你解决Perl入门(五)Perl文件读写所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)