作者imce (蜥蜴)
看板perl
标题Re: [问题] 关於glob
时间Wed Jul 11 12:21:36 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;
}
: 没有办法处理全部的
你的意思是你要对全部的csv档案作处理？那回圈括号放错地方了，红色的是我修改过
不过我是没有用过glob拉
: 还有每个csv的档案都有时间,要怎麽把他印在每个处理过後资料的开头?
你的意思是你要知道每个csv档案的产生时间？
@ret = stat("a.csv");
$ret[8] [9] [10] 三个都是时间，分别是最後存取时间、最後修改时间、
inode 修改的时间
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.120.15.17