Question

Re：perl里什么语句可以判断一个文件夹为非空

Answer 1

sub empty_dir{
	my $d = shift;
	if (-d $d) {
		my @d = <$d/*>;
		return 1 unless (@d > 0);
	}	
	return 0;
}