perl删除目录

1.删除只有一级目录的非空目录，先将要删除目录里面的文件删除，然后再删除目录
#!/usr/bin/perl
use warnings;
use strict;

my $which_dir="/home/ceagle/Code/Perl/test/deldir/t";
chdir($which_dir);

# Get the files in the directory $which_dir
my @files=<*>;
foreach (@files) {
    printf("%12s\n",$_);
    unlink $_;
}

rmdir $which_dir;

##############################################################
2.递归删除非空目录，包含多级目录
#!/usr/bin/perl
use warnings;
use strict;

my $which_dir=shift || "/home/ceagle/Code/Perl/test/deldir/t";

sub del_dir {
    my $sub_dir = $_[0]; #得到传进的第一个参数
        if ( -e $sub_dir ) {
                printf("In dir $sub_dir ...\n ");
        } else {
                #如果没有要删除的传进去的目录，则直接退出
                printf("There is no dir $sub_dir to delete\n");
                exit 0;
        }
        chdir $sub_dir;

    # Get all the file from the directory $sub_dir
    my @files = <*>;
        foreach my $file ( @files ) {
        if ( -d $file ) { #如果包含目录，则递归删除
           del_dir($file);
        } else {
                  unlink $file;
              printf("%-s deleted\n",$file);
        }
    }
        chdir "../";
        rmdir $sub_dir; #删除当前目录
        printf("%-s deleted\n",$sub_dir);
}

del_dir($which_dir);


##############################################################
3.使用Find模块删除，包含删除多级目录
#!/usr/bin/perl
use warnings;
use strict;
use File::Path;
my $which_dir=shift || "/home/ceagle/Code/Perl/test/deldir/t";

system ("echo $which_dir");
rmtree $which_dir;