作者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