Question

怎么样在Perl中取得指定目录下的所有文件

Answer 1

有两种方法如果递归的找子目录可以用下面的files函数，只是找文件夹下面的glob就可以实现了
my @files;
files('.', \@files);
print "$#files @files\n";
my @local;
@local = glob("./*");
print "$#local @local\n";


sub files {
	my $path = shift;
	my $arr  = shift;
	opendir(my $H, $path) || return;
	my @f = readdir($H);
	close($H);
	for my $f(@f) {
		my $p = "$path/$f";
		next if ($f =~/^[.]+$/);
		if (-f $p) {
			push @$arr, $f;
		}
		else {
			files($p, $arr);
		}
	}
}