作者jeffreychen ()
看板Perl
标题Re: [问题] 列出目录下特定档案
时间Thu Mar 7 18:03:11 2013
各位大大
以下是我的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]
: 麻烦大大指点
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 60.248.184.238
1F：→ iFEELing: hint : chdir 03/07 19:39
2F：→ flu:加上 use File::Spec::Functions qw[splitpath]; 03/09 01:11
3F：→ flu:再把print那列改成 print( (splitpath($file))[-1], "\n" ) 03/09 01:11
4F：推 pshuang:如果是 linux 系统的话， `basename $file` 就只会取档名 04/29 13:33