perl 使用sort怎么实现多字段的数字排序

mcshell

1. map{print $_->[0]}sort{$a->[1] <=> $b->[1]}map{[$_,(split(/(\d+)/))[1]]}<DATA>;
   
2. __DATA__
   
3. [cn.emagsoftware.mtk.client.BillingInterfaceClient] (WebContainer : 283)
   
4. [cn.emagsoftware.mtk.client.BillingInterfaceClient] (WebContainer : 29
   
5. [cn.emagsoftware.mtk.client.BillingInterfaceClient] (WebContainer : 367)
   
6. [cn.emagsoftware.mtk.client.BillingInterfaceClient] (WebContainer : 419)
   
7. [cn.emagsoftware.mtk.client.BillingInterfaceClient] (WebContainer : 429)
   
8. [cn.emagsoftware.mtk.client.BillingInterfaceClient] (WebContainer : 436)
   
9. [cn.emagsoftware.mtk.client.BillingInterfaceClient] (WebContainer : 441)
   
10. [cn.emagsoftware.mtk.client.BillingInterfaceClient] (WebContainer : 459)
    
11. [cn.emagsoftware.mtk.client.BillingInterfaceClient] (WebContainer : 481)
    
12. [cn.emagsoftware.mtk.client.BillingInterfaceClient] (WebContainer : 485)
    
13. [cn.emagsoftware.mtk.client.BillingInterfaceClient] (WebContainer : 486)
    
14. [cn.emagsoftware.mtk.client.RegisterUcidClient] (WebContainer : 170)
    
15. [cn.emagsoftware.mtk.client.RegisterUcidClient] (WebContainer : 181)
    
16. [cn.emagsoftware.mtk.client.RegisterUcidClient] (WebContainer : 21
    
17. [cn.emagsoftware.mtk.client.RegisterUcidClient] (WebContainer : 223)
    
18. [cn.emagsoftware.mtk.client.RegisterUcidClient] (WebContainer : 250)
    
19. [cn.emagsoftware.mtk.client.RegisterUcidClient] (WebContainer : 282)
    
20. [cn.emagsoftware.mtk.client.RegisterUcidClient] (WebContainer : 283)
    
21. [cn.emagsoftware.mtk.client.RegisterUcidClient] (WebContainer : 286)
    
22. [cn.emagsoftware.mtk.client.RegisterUcidClient] (WebContainer : 296)
    
23. [cn.emagsoftware.mtk.client.RegisterUcidClient] (WebContainer : 29
    
24. [cn.emagsoftware.mtk.client.RegisterUcidClient] (WebContainer : 309)
    
25. [cn.emagsoftware.mtk.client.RegisterUcidClient] (WebContainer : 335)
    
26. [cn.emagsoftware.mtk.client.RegisterUcidClient] (WebContainer : 337)
    
27. [cn.emagsoftware.mtk.client.RegisterUcidClient] (WebContainer : 367)
    
28. [cn.emagsoftware.mtk.client.RegisterUcidClient] (WebContainer : 371)
    
29. [cn.emagsoftware.mtk.client.RegisterUcidClient] (WebContainer : 376)
    
30. [cn.emagsoftware.mtk.client.RegisterUcidClient] (WebContainer : 395)
    
31. [cn.emagsoftware.mtk.client.RegisterUcidClient] (WebContainer : 40

复制代码

mcshell

回复 4# jiang870320


    别。。我也是跟着版主和一些低调的人偷着学习的。
split(/(\d+)/)
会以数字分割，注意这里是有括号的。表示匹配的自身也捕获。
然后放在一个匿名数组里，然后用sort进行排序。
这种排序方法是一个施瓦茨转化。。具体看仙子的帖子：
http://bbs.chinaunix.net/thread-3768308-1-1.html

mcshell

回复 12# dahe_1984


    数组切片

mcshell

回复 15# inchonline
perldoc -f split
...
  If the PATTERN contains parentheses, additional list elements
               are created from each matching substring in the delimiter.

                   split(/([,-])/, "1-10,20", 3);

               produces the list value

                   (1, ’-’, 10, ’,’, 20)
加括号以后会捕获定义的分隔符。前面貌似说过了{:3_204:}