摘要：删除文件和空目录脚本 1 #!/usr/bin/perl 2 3 use File::Find; 4 5 my $dir = '/path/to/directory'; 6 find(sub { unlink $_ if -f $_ }, $dir); 7 find(sub { rmdir $_ i 阅读全文