Re: [問題] 關於排序
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
推
07/19 22:40, , 1F
07/19 22:40, 1F
※ 編輯: LiloHuang 來自: 140.114.71.35 (07/20 10:35)
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
