作者handsomegirl (薰)
看板perl
标题Re: [问题] 关於glob
时间Wed Jul 11 12:10:35 2007
※ 引述《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
1F：推 imce:阿！发完文才看到你自己回文，当作没看到我的文好了 07/11 12:23
2F：→ handsomegirl:还是很谢谢你:) 07/11 12:25