推 imce:阿！發完文才看到你自己回文，當作沒看到我的文好了 07/11 12:23
→ handsomegirl:還是很謝謝你:) 07/11 12:25
※ 引述《handsomegirl (薰)》之銘言：
: 又來問問題啦~~~這次是已經有找到檔案裡面的內容,
: 卻沒有辦法對內容作處理,我的表達能力不好,貼出程式碼看看比較好
: 這是我第一種寫法,
: #!usr/bin/perl
: chdir ("c:\\Perl\\csv");
: @mutifile=glob("*.csv");
: foreach(@mutifile)
: {
: open(FILE,$_);
: @file=<FILE>;
: print @file;
: close(FILE);
: }
: open f,">c:\\test\\0710.txt";
: foreach $FOUND_STAGE(@file)
: {
: if ($FOUND_STAGE=~/Stage_No/)
: {
: $flag=1 ;
: @array=split/,/,$FOUND_STAGE;
: $first = $array[2] if $array[1]=~/Stage_No/ ;
: next ;
: }
: if ($FOUND_STAGE=~/^\s/){$flag=0 ; next; }
: @array=split/,/,$FOUND_STAGE ;
: next if $array[1]=~/Start_Date/;
: print f "$array[1] $array[2] $array[5] $array[6]\n" if $flag==1 ;
: }
: close f;
自問自答,經a版友的提醒後
才知道是foreach放的位置有問題
才造成只處理了最後一個檔案
小小的錯誤 不過是大大的影響啊
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.65.55.161