請問一下一個簡單的問題

[DeanJean ()]

想開一個目錄中的檔案
再打開每一個
對其中的資料作處理
不知道觀念哪裡錯了
打不開file..........
謝謝~

#! d:\Perl\bin\perl.exe

sub read_in_directory
{

        my($dirname,) = @_;
        opendir(DH, $dirname) || die "cannot opendir $dirname";
        my(@entries) = readdir(DH);

        #open the file
        foreach $entry (@entries){

                 open(FH,$entry);
                 print FH;
                 close FH;
        }
}
read_in_directory(@ARGV);

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.112.129.5
推 in2:改成 open(FH,"$dirname/$entry");
→ DeanJean:這不是站長大人嗎?! 太榮幸了  感恩阿~~