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

有两种方法如果递归的找子目录可以用下面的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)

}

}

}

用perl获取某一文件所在路径，参陵兄侍考代尘模码如下：

use Cwd 'abs_path'

print abs_path($0)."\n"尺吵

man Cwd

NAME

Cwd - get pathname of current working directory

SYNOPSIS

use Cwd

my $dir = getcwd

use Cwd 'abs_path'

my $abs_path = abs_path($file)

---