作者handsomegirl (薰)
看板perl
標題Re: [問題] 關於排序
時間Thu Jul 19 13:40:00 2007
※ 引述《handsomegirl (薰)》之銘言：
: ※ 引述《abliou (Art of Life)》之銘言：
: : 欄位資料取出做成hash的key
: : 再對key做排序
: 不過的欄位資料不單是在第一列才有
: 它是把一部份的資料顯示完後
: 再繼續下個部分的欄位
: 舉例好了,我說的好像有點難懂
: 抱歉 剛才舉錯例子
: 應該是這樣才對
: A NO1 2006/10/10 18:36
: B NO2 2007/12/12 16:37
: . . . .
: . . . .
: G NO2 2007/12/13 17:20
: 這是一個檔案的內容
: 基本上應希望以NO排序,因為可以區分是哪一個NO的狀態
: 檔案原本是CSV我把它全部讀取出來變成這樣子
: 怎麼做hash~就不大理解了..
程式碼貼上來好了
#!usr/bin/perl
open f,">c:\\test\\0719.txt";
chdir ("c:\\Perl\\csv");
@mutifile=glob("*.csv");
foreach(@mutifile)
{
open(FILE,$_);
@file=<FILE>;
@file=sort {$a <=> $b} @file;
print @file;
close(FILE);
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;
主要就是缺了排序這部分這樣
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.65.55.161