[問題] 讀資料夾內所有檔案…
這可能是一個簡單的問題，但是對於初學者的我來說還是有些棘手！
#!/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
推
02/27 15:14, , 1F
02/27 15:14, 1F
→
02/27 15:28, , 2F
02/27 15:28, 2F
※ 編輯: firegsh 來自: 140.117.169.190 (02/27 15:31)
推
02/27 23:06, , 3F
02/27 23:06, 3F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
