关于排序的问题

macgradywk

int0, int1...int20  （实际乱序）
sort{$a <=> $b}

结果是int0,int1,int10,int11...int19,int2,int20
我希望是int0...int20

应该怎么做呢？

xiumu2280

1. my @new = map {$_->[1]}sort{$a->[0] <=> $b->[0]}map {/(\d+)/;[$1,$_]} @d;

复制代码

施瓦茨

yestreenstars

1. [root@localhost ~]# cat p
   
2. #!/usr/bin/perl
   
3. my @arr = qw/int0 int1 int2 int3 int4 int5 int6 int7 int8 int9 int10 int11 int12 int13 int14 int15 int16 int17 int18 int19 int20/;
   
4. print '<=>: ', join( ' ', sort { $a <=> $b } @arr ), $/;
   
5. print 'cmp: ', join( ' ', sort { $a cmp $b } @arr ), $/;
   
6. [root@localhost ~]# ./p
   
7. <=>: int0 int1 int2 int3 int4 int5 int6 int7 int8 int9 int10 int11 int12 int13 int14 int15 int16 int17 int18 int19 int20
   
8. cmp: int0 int1 int10 int11 int12 int13 int14 int15 int16 int17 int18 int19 int2 int20 int3 int4 int5 int6 int7 int8 int9
   
9. [root@localhost ~]#

复制代码

pitonas

{:2_172:}

1. my @sorted = map { "int$_" } 0 .. 20;

复制代码

回复 1# macgradywk


   

清泉一边

学习了~回复 4# pitonas