Re: [問題] 讀資料夾內所有檔案…
※ 引述《firegsh (大丈夫か？)》之銘言：
: 這可能是一個簡單的問題，但是對於初學者的我來說還是有些棘手！
#!/usr/bin/perl
my $DIR = "/home/firegsh/bb";
my $DST_FILE = "/home/firegsh/merge.txt";
opendir(DIR,$DIR) or die "open dir fail";
foreach $filename (readdir(DIR)) {
next if ($filename eq ".");
next if ($filename eq "..");
system("cat $DIR/$filename >> $DST_FILE");
}
closedir(DIR);
_END_
: 檔案內容大概都是
: a
: b
: c
: d
: ...
: 這樣的形式，我要從一個資料夾內依序讀所有這些檔案的內容放到一個檔案裡面，
: 但是卻讀不到檔案內容，請告訴我如何修改，謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.142.1.147
推
02/27 17:12, , 1F
02/27 17:12, 1F
→
02/27 17:12, , 2F
02/27 17:12, 2F
推
02/27 19:46, , 3F
02/27 19:46, 3F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
