Re: [問題] 關於glob
※ 引述《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
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
