作者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