Perl语言基础总结---强大的文件目录及文件操作

?? ?1987年，Larry Wall发明perl语言以来，perl语言逐渐发展强大，并且应用非产广泛，在读《Perl语言入门(第五版)》教程的时候不得不感慨，perl竟然把文件操作作为核心操作，并用了两大章的篇幅来阐诉文件目录及文件的操作的灵活，受益匪浅呀！按耐不住激动地心情，把这份快乐迫不及待的分享给大家，并且写了一个短小的例子，来拓展一下。好吧，闲话少叙，进入正题吧！

? ? 实例目的：在当前目录下，寻找满足自己需要的文件

? ? 实例思路：通过递归遍历当前目录及其目录下的文件，并将文件属性与所需文件属性比较，返回所需文件目录，并写入一个txt文档中。

? ? 递归遍历的步骤：

1 将当前目录列表送入栈，然后第一个元素出栈；

2 判断第一个元素是否是目录，如果是目录则重复步骤1；

3 否则判断第一个元素是否是文件，如果是文件则与所需文件属性比较，如果比较成功，则将文件目录写入test.txt文件中；

4 如果无法判断当前文件目录，输出错误。

? ?值得指出的是

1、当把当前目录列表送入栈时，其中包括了.(当前目录)..(上一目录)，我们必须把这两个元素排除在外。

2、在windows系统下处理文件路径是要用到File::Spec模块，少去了路径处理所带来的麻烦

3、我们可以使用 5.010模块，里面有很多简单有趣的特性，比如say 输出换行。

? ? 下面一个例子用来演示递归当前目录，将目录及文件路径写入”目录.txt”,若要进一步扩展，可以在判断是文件后添加if语句。

程序源码：

use 5.010;
use File::Spec;
sub  readfile{
    my $count=0;#用来记录栈中元素
    my $mydir=shift @_;#子例程读取参数，必须用shift，否则返回参数个数！
    opendir DH,$mydir or die "cannot open$mydir:$!";#目录操作，获得句柄DH
    foreach $file(readdir DH){
          $file=File::Spec->catfile($mydir,$file);#将目录与文件名连接起来
          $count++;
          if ($count!=1 and $count!=2){#只要不是.(当前目录)..(上一目录)
              if (-d $file ){#-d如果当前是目录
                     say FILE "tt——————当前目录是 ",$file;
                     $file=".$file";
                     &readfile($file);#递归目录
               }elsif( -f $file){-f如果当前是文件
                     say FILE "当前文件是 ",$file;
               }else{
                     say FILE "other",$file;
              }
          }
       }
    closedir DH;
}
if(!openFILE,">>目录.txt"){
    die "cannot create file:$!";
       }
&readfile(".");
closeFILE;
say"已经完成，请打开当前目录下的'目录.txt',按任意键继续………";
<STDIN>;