請(qǐng)教判斷目錄的寫(xiě)法

db2_aixer

小弟新手 準(zhǔn)備實(shí)現(xiàn)個(gè)小需求。我要取出某個(gè)目錄的里面一些子目錄名，比如：/home/oracle下的 a1 a2 a3 個(gè)目錄，如果/home/oracle里面還含有文件名和目錄名相同，我就只打印出目錄名 我的寫(xiě)法：
opendir(TMP,'/home/oracle') || die "re";
@d=grep(/a[0-9]$/,readdir TMP);
foreach (@d){
  if( -d $_ ){
    print "$_";
  }  
}
運(yùn)行什么都沒(méi)有，請(qǐng)教下改怎樣處理，謝謝

kk861123

回復(fù) 1# db2_aixer


    請(qǐng)使用絕對(duì)路徑：

1.   if( -d "/home/oracle/$_" ){
   
2.     print "$_";
   
3.   }  
   

復(fù)制代碼

db2_aixer

感謝kk861123回復(fù)  可以了 學(xué)習(xí)了

jason680

回復(fù) 1# db2_aixer

perldoc -f readdir
               ...
               If you're planning to filetest the return values out of a
               "readdir", you'd better prepend the directory in question.
               Otherwise, because we didn't "chdir" there, it would have been
               testing the wrong file.

                   opendir(my $dh, $some_dir) || die "can't opendir $some_dir: $!";
                   @dots = grep { /^\./ && -f "$some_dir/$_" } readdir($dh);
                   closedir $dh;

frankhyk

為什么要特意寫(xiě)一下"$_"，默認(rèn)的不就是對(duì)它操作嗎？去掉"$_"就可以了吧。

斯文牛氓

回復(fù) 5# frankhyk


    怕你看不懂把