問題`在Perl

glob`功能我想獲得它的名字看起來像所有文件的列表：$res_dir/$line/$fub_name*.istf問題`在Perl

含義：在目錄$dir在子目錄$line與$name開始，以.istf結尾的文件。

每個子目錄只包含1個這樣的文件，但是有很多子目錄。我寫了這個：

foreach $line (@arr){ 
    chomp ($line); 
    $new_istf = glob ("$res_dir/$line/$fub_name*.istf"); 
    do something...

但它並沒有給我所有的文件，但只有一半。當我加入了休耕調試代碼：

if ($new_istf){ 
    print "\tdbug:: $res_dir/$line/$fub_name*.istf:\t'$new_istf'\n"; 
} else { 
    print "\tdbug:: $res_dir/$line/$fub_name*.istf:\t''\n"; 
}

，並輸出結果是：存在

dbug:: RESULTS//791202_0_SA0/ieuni5cts*.istf: 'RESULTS//791202_0_SA0/ieuni5cts.mlc.xxx.x.istf' 
    dbug:: RESULTS//791212_0_SA0/ieuni5cts*.istf: '' 
    dbug:: RESULTS//791241_0_SA0/ieuni5cts*.istf: 'RESULTS//791241_0_SA0/ieuni5cts.mlc.xxx.x.istf' 
    dbug:: RESULTS//791248_0_SA0/ieuni5cts*.istf: '' 
    dbug:: RESULTS//791251_0_SA0/ieuni5cts*.istf: 'RESULTS//791251_0_SA0/ieuni5cts.mlc.xxx.x.istf' 
    dbug:: RESULTS//791258_0_SA0/ieuni5cts*.istf: '' 
    dbug:: RESULTS//791272_0_SA0/ieuni5cts*.istf: 'RESULTS//791272_0_SA0/ieuni5cts.mlc.xxx.x.istf' 
    dbug:: RESULTS//791273_0_SA1/ieuni5cts*.istf: '' 
    dbug:: RESULTS//791301_0_SA0/ieuni5cts*.istf: 'RESULTS//791301_0_SA0/ieuni5cts.mlc.xxx.x.istf' 
    dbug:: RESULTS//791333_0_SA0/ieuni5cts*.istf: '' 
    dbug:: RESULTS//791349_0_SA0/ieuni5cts*.istf: 'RESULTS//791349_0_SA0/ieuni5cts.mlc.xxx.x.istf' 
    dbug:: RESULTS//791357_0_SA0/ieuni5cts*.istf: '' 
    dbug:: RESULTS//791405_0_SA1/ieuni5cts*.istf: 'RESULTS//791405_0_SA1/ieuni5cts.mlc.xxx.x.istf' 
    dbug:: RESULTS//791432_0_SA0/ieuni5cts*.istf: '' 
    dbug:: RESULTS//791434_0_SA0/ieuni5cts*.istf: 'RESULTS//791434_0_SA0/ieuni5cts.mlc.xxx.x.istf' 
    dbug:: RESULTS//791459_0_SA0/ieuni5cts*.istf: '' 
    dbug:: RESULTS//791462_0_SA0/ieuni5cts*.istf: 'RESULTS//791462_0_SA0/ieuni5cts.mlc.xxx.x.istf' 
    dbug:: RESULTS//791463_0_SA0/ieuni5cts*.istf: '' 
    dbug:: RESULTS//791467_0_SA0/ieuni5cts*.istf: 'RESULTS//791467_0_SA0/ieuni5cts.mlc.xxx.x.istf' 
    dbug:: RESULTS//791471_0_SA1/ieuni5cts*.istf: ''

但所有這些文件。因爲glob假設像賣解釋工作，我檢查了它，當我做echo RESULTS//791463_0_SA0/ieuni5cts*.istf（這不是由glob每個檢測到的其他文件，它提供了正確的文件名。

我也想跑作爲glob的一個襯墊與沒有給出結果的路徑，和它的工作：

perl -e 'print glob("RESULTS//791467_0_SA0/ieuni5cts*.istf"),"\n"'

，它給了正確的結果，以及

哪裏是我的代碼問題

來源

2011-08-24 SIMEL

？從開始：

在列表上下文，返回的文件名的擴展上EXPR的值，如標準的Unix外殼 /bin中/ CSH會做的（可能是空的）列表。在標量上下文中，glob循環遍歷這樣的文件名擴展，當列表耗盡時返回undef。

發佈的代碼是在標量上下文。

看看調用它在列表環境解決了這個問題：

my ($new_istf) = glob ("$res_dir/$line/$fub_name*.istf");

來源

2011-08-24 10:54:16 Zaid

回答

相關問題