作者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
1F：推 abliou:甚麽叫读取一个档案又不读取内容 02/27 15:14
2F：→ firegsh:读不到档案内容 02/27 15:28
※ 编辑: firegsh 来自: 140.117.169.190 (02/27 15:31)
3F：推 flamerecca:要用fread吧？ 02/27 23:06