作者giacch (小a)
看板Perl
标题Re: [问题] 资料夹里多个档案
时间Sun Oct 5 17:32:37 2008
※ 引述《Bounee (棉花糖)》之铭言:
: 刚学Perl几天~遇到难题卡住了>"<
: 想了好久想不出来~想请大家帮帮忙~
: 我的资料夹里有多个档案
: 我想要把每个档案的某些东西读出来写在同一个档案里
: 可是资料夹里只有一个档案时会成功
: 但是多个档案就失败了~
: 不知道是哪里出问题了
: open(FILE1,">result.txt");#开启资料夹里的档案
: print "Folder:";
: chomp($folder_open=<>);
: $folder = sprintf("%s", $folder_open);
: opendir(FILDER, "$folder") || die "no FILDER?: $!";
: @name = readdir(FILDER);
上面那行改成
@name = map { "$folder/$_" } readdir(FILDER);
readdir 只有读出档名, 没有路径...
: closedir(FILDER);
: foreach(@name)
: {
: next if ($_ =~ /^\./);
: open(FILE,"$_");
上面那行请改成
open(FILE,"$_") or die "$_: $!\n";
可发现前面 readdir 那行的失误(方便除错)...
: @temp=<FILE>;
: close(FILE);
: foreach(@temp)
: {
: chomp($_);
: my @temp = split /[\t]/,$_;
: if(@temp[0] eq "Sample")
: {
: print FILE1 @temp[1]," ";
: }
: }
: }
: 麻烦大家了
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.232.236.185
1F:推 Bounee:还是不行耶>"<~ 可是谢谢你喔~ 10/05 22:15
2F:推 Bounee:不好意思~是我自己搞错了~ 可以用了~谢谢你喔 10/06 10:38