perl 递归两例

q29191

[root@virfed64 ~]# cat Scan.pl　　
#!/usr/bin/perl -s
　　
#
　　
use Cwd;
　　
sub ScanDirectory{
　　
    my $workdir = shift;
　　
    my $startdir = cwd;
　　
    chdir $workdir or die "Unable to enter dir $workdir:$! \n";
　　
    opendir my $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 ){
　　
            ScanDirectory($name);
　　
            next;
　　
        }
　　
        if($name eq 'core'){
　　
            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('.');