[問題] 如何處理所有子目錄裡符合檔名格式的檔案?
因為要處理的檔案放在工作目錄的下下層
第一層 A00 A02 A06 ... 不連續編號的目錄名稱
第二層 A00.000.dat A00.002.dat ... 不連續編號的檔案名稱
所以我參考 Perl Cookbook 寫了下面這個程式 可以找出所有符合檔名的檔案
但是 不知道為什麼 找到的檔案名稱(含完整路徑)
無法當作 ls 的引數
是不是這樣找出來的 檔名字串 跟 一般字串 不同呢?
麻煩各位前輩指點
-----------------------------------------------------------------
#!/usr/bin/perl -l
@ARGV = qw(.) unless @ARGV;
use File::Find ();
sub find(&@) { &File::Find::find }
*name = *File::Find::name;
find { system("ls -l $name"), if -f && /.dat/ } @ARGV;
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.115.221.125
※ 編輯: ashien 來自: 140.115.221.125 (05/06 09:14)