作者LiloHuang (四年前两年後)
看板perl
标题Re: [问题] 关於排序
时间Thu Jul 19 22:00:52 2007
my @data = (
"A NO1 2006/10/10 18:36",
"B NO2 2007/12/12 16:37",
"C NO3 2007/12/13 17:40",
"D NO1 2005/01/01 00:01",
"G NO2 2007/12/13 17:20"
);
@data = map { substr $_ ,3 }
sort
map { [split " "]->[1].$_ } @data;
print $_,$/ foreach(@data);
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.114.71.160
1F：推 abliou:真是变态的方法.....XD 07/19 22:40
※ 编辑: LiloHuang 来自: 140.114.71.35 (07/20 10:35)