作者firegsh (大丈夫か?)
看板Perl
標題[問題] 讀資料夾內所有檔案…
時間Sun Feb 27 14:38:10 2011
這可能是一個簡單的問題,但是對於初學者的我來說還是有些棘手!
#!/usr/bin/perl
$dir="...";
opendir(DIR,$dir) or die "...";
print "...";
@files=readdir(DIR);
closedir(DIR);
foreach $file(@files)
{
next if ...;
print "$file\n";
while(<file>)
{
foreach $line(split)
{print "$line";}
}
close(file);
}
檔案內容大概都是
a
b
c
d
...
這樣的形式,我要從一個資料夾內依序讀所有這些檔案的內容放到一個檔案裡面,
但是卻讀不到檔案內容,請告訴我如何修改,謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.117.169.190
推 abliou:甚麼叫讀取一個檔案又不讀取內容 02/27 15:14
→ firegsh:讀不到檔案內容 02/27 15:28
※ 編輯: firegsh 來自: 140.117.169.190 (02/27 15:31)
推 flamerecca:要用fread吧? 02/27 23:06