Perl笔记:11、目录操作

在目录树中切换

程序运行时会以自己的工作目录作为相对路径的起点。可以使用chdir操作符来改变当前的工作目录，这和shell下的cd命令差不多：

chdir "/etc" or die "can't
chdir to /etc:$!";

注意这里我用到了$!变量，由于这是对操作系统的调用，所以发生错误时便会设定标量标量$!的值。如果chdir的返回为假，则表示有问题发生，这时通常需要检查一下$!变量的内容。

如果chdir省略参数则跳到当前的目录，这实际上是没有什么意义的。

文件名通配

一般来说shell会将命令行里的文件名模式展开成所有匹配的文件名。这称之为文件名通配。如，假设将*.pm这个文件名模式交给echo命令，shell会将它展开成名成相匹配的文件列表：

$
echo
*.pm

barney.pm dino.pm fred.pm wilma.pm

这里的echo命令不必知道该如何展开*.pm，因为shell会将它展开，再交给echo处理，这也同样适合于perl程序：

#!/usr/bin/perl
-w

use
strict;

foreach (@ARGV) {

print "one
arg is $_\n";

}

$ perl show-args *.txt

one arg is file.txt

one arg is letter.txt

在这里我上文的程序并不了解如何进行文件通配的处理，放在@ARGV里的已经是展开好了的名称。

有些时候在程序内部，也可能会想要用*.txt之类的模式。我们可以使用glob操作符将它展开成相匹配的文件名：

my
@all_files
=
glob "*";

my @txt_files = glob "*.txt";

--其中@all_files会取得当前目录中的所有文件，并按字母顺序排序，但不包含以点号开头的文件。@txt_files得到所有以.txt结尾的文件。

下面是一次匹配多个模式的例子：

my
@all_files_including_dot
=
glob ".*
*";

--其中".*"代表以点开头的文件名，另外注意引号之内两个模式中间的空格是有意的，它分隔了两个要进行文件名通配处理的条目。

文件通配符的另外一种写法

除了上面介绍的glob操作符之外我们可以使用一种简单的方式在perl使用文件通配符，那就是"尖括号写法"（<>）:

my @all_files = <*>

# 与 my @my_files =
glob "*" 一样

my $dir =
"/etc";

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

#
$dir变量也会替换为相应的内容

注意：尖括号在perl中即代表了从文件句柄读取，又代表了文件名通配操作，那Perl是如何决定是哪一种的呢？因为合理的文件句柄必须是严格意义上的Perl标识符，所以如果尖括号满足Perl标识符条件的，就作为文件句柄来读取，否则它代表的iushi文件名通配操作。举例来说：

my @files = <FRED/*>; ## glob

my @lines = <FRED>;
##
从文件句柄读取

my $name =
"FRED";

my @files = <$name/*>; ## glob

my @lines = <$name>; ##
对句柄FRED进行间接文件句柄读取

目录句柄

若要从目录中取得文件名列表，那就要用到目录句柄，它和文件句柄类似，可以使用opendir打开，readdir读取，closedir关闭，只不多读取的时候是目中的文件名而不是文件的内容，如下例子：

readdir.pl

#!/usr/bin/perl
-w

use
strict;

my $dir_to_process = "/etc";

opendir DH, $dir_to_process or die "Cannot open $dir_to_process:
$!";

foreach my $file (readdir DH) {

print "one
file in $dir_to_process is $file\n";

}

closedir DH;

运行：perl readdir.pl

one file in /etc is .

one file in /etc is ..

one file in /etc is bashrc

one file in /etc is auto.misc

one file in /etc is firmware

one file in /etc is libaudit.conf

...

one file in /etc is netplug.d

--和文件句柄一样，目录句柄会在程序结束或再用这个句柄打开另一个目录前自动关闭。上面的例子中将.
和..文件都输出了，我现在不想显示这些文件，只想显示*.conf的文件，且按照字母顺序排序，那将如何修改之前的程序呢：

readdir_2.pl

#!/usr/bin/perl
-w

use
strict;

my @file;

my $dir_to_process = "/etc";

opendir DH, $dir_to_process or die "Cannot open $dir_to_process:
$!";

foreach my $file (readdir DH) {

next if $file =~ /^\./;

next unless $file =~ /\.conf$/;

push @file,"$dir_to_process/$file\n";

}

print sort @file;

closedir DH;

--这样输出的文件是按照字母顺序且都是.conf的文件

删除文件

使用unlink操作符删除文件：

unlink "slate", "bedrock", "lava";

既然unlink的参数是列表，glob函数又恰好返回列表，我们融合两者可以一次删除多个文件：

unlink glob "*.o";

unlink的返回值是成功删除了多少个文件，下面的例子可以检查unlink是否执行成功：

my $successful = unlink "slate", "bedrock", "lava";

print "I
deleted $successful file(s) just now\n";

重命名文件

使用rename函数来重命名文件，写法: rename
"old","new";

下面的例子是将所有的.old文件重命名为.new

rename.pl

foreach my $file (glob "*.old") {

my $newfile = $file;

$newfile =~ s/\.old$/.new/;

if (-e
$newfile) {

warn "can't rename $file to $newfile: $newfile
exists\n";

} elsif (rename $file,
$newfile) {

##
改名成功，什么都不做

} else {

warn "rename $file to $newfile failed: $!\n";

--此程序会先检查$newfile是否村咋，因为只要用户有删除目标文件的权限rename就会毫不忧郁的覆盖现有的文件。加上这项敬爱奶茶可以减低损失数据的几率

建立和删除目录

mkdir
DIRNAME,MASK

mkdir执行后成功返回true失败返回false并设置$!的内容。

[ccie lang="perl"]mkdir "fred", 0755 or warn "Cannot make fred
directory: $!";[/cce]

注意：MASK最好不要用变量的形式指定，否则perl会认为这个变量时十进制的数字，而非mkdir认为的八进制，因此，在指定MASK最好使用数字，或者用oct函数转换一下变量，如下：

my $name =
"fred";

my $permissions = "0755";

mkdir $name,
oct($permissions);

修改权限

chmod 0755, "fred", "barney";

chmod函数与shell下的命令是一致的

更改属主

my $user =
1004;

my $group = 100;

chown $user,
$group, glob "*.o";

--如果要处理的不是数字，而是像apache这样的字符串该如何处理呢？很简单，使用getpwnam与getgrnam函数来把用户名或组名转成数字即可，如下：

defined(my
$user = getpwnam "merlyn") or
die "bad
user";

defined(my
$group = getgrnam "users") or
die "bad
group";

chown $user,
$group, glob "/home/merlyn/*";

--这里我们使用了defined函数来确认返回值不是undef，也就是说验证指定的用户或组是否真的存在。