Question

如何在perl中删除非空目录

Answer 1

rmdir_deep("tmpdir");
sub rmdir_deep {
	my $dir = shift;
	return if (!-e $dir);
	my $D;
	opendir $D, $dir;
	my @D = readdir $D;
	close $D;
	for my $d(@D) {
		next if ($d =~ /^.{1,2}$/);
		my $p = "$dir/$d";
		if (-f $p){
			unlink $p;
			print "Delete file $p\n";
			next;
		}
		rmdir_deep($p);
	}
	print "Delete Dir $dir\n";
	rmdir($dir);
}