推 Bounee:還是不行耶>"<~ 可是謝謝你喔~ 10/05 22:15
推 Bounee:不好意思~是我自己搞錯了~ 可以用了~謝謝你喔 10/06 10:38
※ 引述《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