perl学习笔记——目录操作-白红宇

perl学习笔记——目录操作

阅读量：5316 次

发布时间：2019-06-14

本文共 2977 字，大约阅读时间需要 9 分钟。

在目录书中移动

chdir 操作副改变当前的工作目录。它和shell中cd命令类似：

chdir ‘/etc’ or die “cannot chdir to /etc:$1”;

注意：工作目录不能更改的，也就是说Perl程序返回后一定会回到所在的工作目录。

如果调用chdir时不加参数，Perl会猜想是想要回到用户主目录，并将工作目录设成主目录，这和shell下使用不加参数的cd命令效果相同。

注意：可不能使用波浪符～。

文件名通配

形如：echo *.pm;其中通配符是*。在Perl中同样适用：

my @all_files=glob ‘*’;

My @pm_files=glob ‘*.pm’;

其中，@all_files取得当前目录中的所有文件并且按照字母顺序排序，但不包括以点号开头的文件，这和shell中的做法完全相同(ls)。

如果需要一次匹配多种模式，可以在参数中用空格隔开各个模式：

my all_files_including_dot=glob '*.gz *.pl';

文件通配的另一种语法

使用<>完成glob的功能，如：

my @all_files=<*>;#效果等同于: my @all_files=glob “*”;

Perl会把尖括号<>内出现的变量替换为他的值，类似与双引号内字符串的变量内插。

my $dir='/etc';

my @dir_files=<$dir/* $dir/.*>;

假如尖括号即表示从文件句柄中读取有代表文件名通配操作，那Perl如何取舍？

因为合理的文件句柄必须是严格意义上的Perl标识符，所以如果尖括号内满足Perl标识符条件的，就作为文件句柄来读取；否则就代表文件名通配符。如：

上述规则唯一例外就是当尖括号内仅仅是一个简单的标量变量时，那么他就是间接文件句柄读取，其中变量的值就是带读取的文件句柄名称。

目录句柄

opendir(代替open) 打开目录句柄；

readdir （代替readline）读取目录句柄的内容；

closedir(代替close) 关闭目录句柄；

对比：

#!/usr/bin/env perluse 5.010;open AA,'<','aa';while(1){    my $line=readline AA;    if($line eq "")    {        last;#不知道为什么，用break出现了错误。    }    print "$line";}close AA;

目录句柄的缺点：目录句柄返回的名称列表并未按照特定的顺序排列。同时列表中将包含所有文件，而不是匹配某些模式的部分（如：*.pm）。同时列表中包含了名称一点号开头的文件，.和..也在其中。所以如果我们只想处理名称以pm结尾的文件，则可以在玄幻内使用一个跳过函数：

while($name=readdir $dh){

　　　　next unless $name=~ /\.pm$/; #处理名称以pm结尾的文件

　　　　next if $name =~ /^\./;#去掉以点号开头的文件

　　　　.....其他对文件名的处理......

}

因为readdir操作符返回的只是文件名并不包含路径名，所以他们只是目录里的文件名而已。

而有时候为了更加方便操作，也是更加清晰，使用下面的操作：

递归访问目录(主要为了实现shell中的find命令操作)

使用File::find模块。

使用File::Find::Rule和File::Finder操作具有更好的用户界面和可操作姓。

File::Find::Rule==>http://search.cpan.org/~rclamp/File-Find-Rule-0.33/lib/File/Find/Rule.pm;

如：

#!/usr/bin/env perluse 5.010;use File::Find::Rule;#say "INC==@INC";@DIR=qw (/home/lukexwang/PerlDemo);use lib '.';my @files=File::Find::Rule->file()->name( '*.pl' )->in(@DIR);say "@files";