Re: [問題] 讀資料夾內所有檔案…

[snowfly (@@)]

※ 引述《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
推 firegsh:謝謝 但是如果我希望merge.txt的內容是
→ firegsh:檔名-內容 檔名-內容 依序排下來呢
推 firegsh:已解