Re: [問題] 關於排序

看板Perl作者 (真是無聊的...)時間18年前 (2007/07/21 14:01), 編輯推噓3(303)
留言6則, 2人參與, 最新討論串14/18 (看更多)
※ 引述《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
(split /\s+/)[1] => (split /\s+/)[-3]
07/21 15:39, 1F

07/21 15:40, , 2F
你這個是史瓦茲轉換 這個效能會比我的那個GRT字串差...
07/21 15:40, 2F

07/21 15:41, , 3F
substr效率基本上算快的了 GRT精神在於substr XD
07/21 15:41, 3F

07/21 15:42, , 4F
這兩者的比較你可以Google一下 GRT快史瓦茲2倍速度左右
07/21 15:42, 4F

07/21 16:13, , 5F
另外剛剛我實在翻不到Cookbook哪一頁說substr效率不好
07/21 16:13, 5F

07/21 16:13, , 6F
可否請你說明一下是在哪一頁看到的 謝謝^^
07/21 16:13, 6F
文章代碼(AID): #16eQ4-cB (Perl)
討論串 (同標題文章)
本文引述了以下文章的的內容:
以下文章回應了本文
完整討論串 (本文為第 14 之 18 篇):
文章代碼(AID): #16eQ4-cB (Perl)