作者snowfly (@@)
看板Perl
标题Re: [问题] 读资料夹内所有档案…
时间Sun Feb 27 15:46:53 2011
※ 引述《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
1F：推 firegsh:谢谢 但是如果我希望merge.txt的内容是 02/27 17:12
2F：→ firegsh:档名-内容 档名-内容 依序排下来呢 02/27 17:12
3F：推 firegsh:已解 02/27 19:46