Re: [問題] 關於排序

[LiloHuang (四年前兩年後)]

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
推 abliou:真是變態的方法.....XD
※ 編輯: LiloHuang       來自: 140.114.71.35        (07/20 10:35)