請問一下一個簡單的問題
想開一個目錄中的檔案
再打開每一個
對其中的資料作處理
不知道觀念哪裡錯了
打不開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
推
05/01 13:56, , 1F
05/01 13:56, 1F
→
05/01 21:54, , 2F
05/01 21:54, 2F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
