各位大大
以下是我的code
my $file;
my @file_list = <./test/*.AAA>;
foreach $file (@file_list){
print "$file\n";
}
我要找test目录下要找*.AAA档名
可是此结果会变成
./test/aaa.AAA
./test/bbb.AAA
我希望找到结果只是档名不含它的路径
该如何修正? 也就是说 每个$file变量分别为aaa.AAA bbb.AAA
请大大帮我
※ 引述《jeffreychen ()》之铭言：
: 各位大大
: 请问，如果我要列出BBB路径下所有.AAA的档案
: 并将这些结果被到阵列中
: 请问该如何写呢.
: 例如目录 BBB下有档案a.AAA b.AAA c.AAA d.BBB
: 希望阵列的结果为[a.AAA b.AAA c.AAA]
: 麻烦大大指点

hint : chdir

加上 use File::Spec::Functions qw[splitpath];再把print那列改成 print( (splitpath($file))[-1], "\n" )

如果是 linux 系统的话， `basename $file` 就只会取档名