关于sort

xie3ks

1. #!/usr/bin/perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. my ($d, $e);
   
7. my @array = (8, 2, 32, 1, 4, 16);
   
8. print join(' ', sort {$a <=> $b} @array), "\n";

复制代码

一直很奇怪，为什么 sort 后面的花括号里 必须用  $a 和 $b
用别的定义的变量都不行

比如我这里定义了  $d, $e
print join(' ', sort {$d <=> $e} @array), "\n";
就会报错

有谁能告诉为什么吗？

不仅仅是符号

我记得$a和$b是sort里面内置的变量，要自己定义变量的话需要自己写个子程序吧。。

104359176

这就是乌龟的屁股 - 规定。

在 Perl 6 中可以定义别的变量：

1. @a.sort: { $^x < $^y }

复制代码

ASC 码在前的是表示前一个值。