Re: [問題] 關於排序
※ 引述《abliou (Art of Life)》之銘言:
: : 推 handsomegirl:前面欄位不固定的問題,split可以從後面切回來嗎? 07/20 10:42
: 照L大的概念重寫一遍...找出往後算回會固定也是不錯的idea...
: ####################################################
: @data = map { substr $_ ,10 }
: sort
: map { [split/ /,$_]->[-3].$_ } @data;
: print $_,$/ foreach(@data);
: ####################################################
貢獻一個,
print
map { $_->[1] }
sort { $a->[0] cmp $b->[0] }
map { [(split /\s+/)[1] , $_ ] } @data;
基本上和大家的做法差不多了,
不過我是採用 [ ],這個技巧好像在 Perl Cookbook 有看過,
而且有特殊名稱,可惜我忘記了
這樣子可以省略掉最後必須 substr,
在 Cookbook 也有提過 split 和 substr 的效率並不是很好
所以能省就儘量省吧!!
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.240.172.81
推
07/21 15:39, , 1F
07/21 15:39, 1F
推
07/21 15:40, , 2F
07/21 15:40, 2F
→
07/21 15:41, , 3F
07/21 15:41, 3F
→
07/21 15:42, , 4F
07/21 15:42, 4F
推
07/21 16:13, , 5F
07/21 16:13, 5F
→
07/21 16:13, , 6F
07/21 16:13, 6F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章