# create an unsorted array of numbers and sort it my @array2 = ( 100, 23, 9, 75, 5, 10, 2, 50, 7, 96, 1, 40 ); my @sortedLexically = sort @array2; my @sortedNumerically = sort {a<=>b } @array2; print "Unsorted:
print join(' ', sort { $a <=>; $b } @array), "\n"; 打印结果是: 1 2 4 8 16 32 与之一样的是: sub numerically { $a <=>; $b }; print join(' ', sort numerically @array), "\n"; 这个很容易理解哦,它只是按自然数的顺序进行sort,偶就不细讲了。 2.1 以ASCII顺序(非字典顺...
@array[0..2]=@array[3,4];#@array=(5,5,"",5,5)now 可以用子Perl数组形式来交换元素: @array[1,2]=@array[2,1]; 7、有关Perl数组的库函数 (1)sort--按字符顺序排序 @array=("this","is","a","test"); @array2=sort(@array);#@array2=("a","is","test","this") @array=(70...
@array = (8, 2, 32, 1, 4, 16); print join(' ', sort {$a <=> $b} @array), "\n"; 打印结果是: 1 2 4 8 16 32 与之一样的是: sub numerically { $a <=> $b }; print join(' ', sort numerically @array), "\n"; 这个很容易理解哦,它只是按自然数的顺序进行sort,偶就不...
1. 以数字顺序sort 复制代码代码如下: @array = (8, 2, 32, 1, 4, 16); print join(' ', sort {$a <=> $b} @array), "\n"; 打印结果是: 复制代码代码如下: 1 2 4 8 16 32 与之一样的是: 复制代码代码如下: sub numerically { $a <=> $b }; ...
print join('' '', sort numerically @array), "n"; 这个很容易理解哦,它只是按自然数的顺序进行sort,偶就不细讲了。 2.1 以ASCII顺序(非字典顺序)进行sort @languages = qw(fortran lisp c c++ Perl python java); print join('' '', sort @languages), "n"; ...
4.15. Sorting an Array Numerically Problem You want to sort a list of numbers, but Perl’s sort (by default) sorts in ASCII order. Solution Use Perl’s sort function and the <=> numerical comparison operator: @sorted = sort { $a <=> $b } @unsorted; Discussion The sort function take...
which are very useful when wishing to sort arrays.$a <=> $breturns -1 if$ais numerically lesser than$b, 1 if it's greater, and zero if they are equal. cmpdoes the same for string comparison. For instance the previous example could be re-written as: ...
所以不要修改$a或$b。假如使用子函数，它不能是递归函数。（二）用法示例 1.以数字顺序sort @array=(8,2,32,1,4,16);print join('',sort{$a<=>;$b}@array),"\n";打印结果是：12481632 与之一样的是：sub numerically{$a<=>;$b};print join('',sort numerically@array),"\n";
（二）用法示例1.以数字顺序sort@array=(8,2,32,1,4,16);printjoin('',sort{$a<=>;$b}@array),"/n";打印结果是：12481632与之一样的是：subnumerically{$a<=>;$b};printjoin('',sortnumerically@array),"/n";这个很容易理解哦，它只是按自然数的顺序进行sort，偶就不细讲了。2.1以ASCII顺序...