作者kornelius (c9s)
看板Perl
标题Re: [问题] 让命令引数支援 -R 和 *
时间Sun Sep 5 19:54:56 2010
请爱用 File::Find::Rule:
use File::Find::Rule;
# find all the subdirectories of a given directory
my @subdirs = File::Find::Rule->directory->in( $directory );
# find all the .pm files in @INC
my @files = File::Find::Rule->file()
->name( '*.pm' )
->in( @INC );
一行解决。
※ 引述《a3181388 (Mr.3181388)》之铭言：
: : # find预设会递回搜寻资料夹下的档案 (preorder traversal)
: : find(\&wanted, @ARGV);
: : # 印出@ARGV中所有档案、目录底下的档案的档名
: : say join " ", @files;
--
qr{Cornelius|c9s};
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 113.61.199.4