跟我一起学<perl系统管理脚本> 第2课

今天是perl系统管理脚本的第二课,内容和第一课差不多,不过第二课是对第一课有了进一步深入的使用,如将功能集成化,还有实现了递归调用........大家可以模仿这个做类似的脚本.......

#*

#* scans a filesystem "by hand" for core files with optional deletion

#!/usr/bin/perl -s

# note the use of -s for switch processing. Under NT/2000, you will need

# call this script explicitly with -s (i.e. perl -s script) if you do not

# have perl file associations in place.

#

# -s is also considered 'retro', many programmers preferring to load

# a separate module (from the Getopt:: family) for switch parsing.

use Cwd; # module for finding the current working directory

# This subroutine takes the name of a directory and recursively scans

# down the filesystem from that point looking for files named "core"

sub ScanDirectory{   #目录扫描函数

    my ($workdir) = shift;  #保存函数传递的参数

    my ($startdir) = &cwd; # keep track of where we began #记录当前工作目录

    chdir($workdir) or die "Unable to enter dir $workdir:$!\n"; #转到扫描目录下

    opendir(DIR, ".") or die "Unable to open $workdir:$!\n";    #打开目录句柄

    my @names = readdir(DIR) or die "Unable to read $workdir:$!\n"; #将目录下的内容赋值给数组

    closedir(DIR);

    foreach my $name (@names){

        next if ($name eq ".");

        next if ($name eq "..");

        if (-d $name){ # is this a directory?

            &ScanDirectory($name);  #再次调用这个函数

            next;

        }

        if ($name eq "core") { # is this a file named "core"?

            # if -r specified on command line, actually delete the file

            if (defined $r){

                unlink($name) or die "Unable to delete $name:$!\n";

            }

            else {

                print "found one in $workdir\n";

    }

    chdir($startdir) or die "Unable to change to dir $startdir:$!\n";

}

&ScanDirectory(".");

[学习]

     这课有个特色就是循环的读取某个指定目录,直到在指定的目录下没有目录了.一次又一次的将与指定的文

件进行匹配.在这里,我们看到了,将某一个功能集成化,就是把目录扫描文件的功能写到一个函数了,在借助CWD模

块,记录当前工作目录,以实现递归的查找文件,当符合条件时,采取一定的动作,如删除.......

本文转自hahazhu0634 51CTO博客，原文链接：http://blog.51cto.com/5ydycm/115388，如需转载请自行联系原作者