求助,请高手帮忙看两忙代码.

sanowleo

UID: 12599
帖子: 168
积分: 386
在线时间: 1 天 14 小时

1^# sanowleo 发表于 2007-04-10 18:21

求助,请高手帮忙看两忙代码.

求助,请高手帮忙看两忙代码.
my (@data) = sort {$a <=> $b} @_;
scalar(@data%2)

就是这两行代码,我看不懂,请高手帮忙解释一下,谢谢了.

fkiori

UID: 16132
帖子: 1
积分: 2
在线时间: 10 分钟

2^# fkiori 发表于 2007-04-11 08:53

第一行是排序--第二行是.
第一行是排序
第二行是返回标量

uliyas

UID: 4395
帖子: 91
积分: 209
在线时间: 11 小时

3^# uliyas 发表于 2007-04-11 08:56

my (@data) = sort {$a &l.
my (@data) = sort {$a <=> $b} @_;
这个是讲 @_中的数字按照从小到大的顺序排序，并将结果存放在@data数组中。

scalar(@data%2)
返回@data数组个数除2的余数。

sanowleo

UID: 12599
帖子: 168
积分: 386
在线时间: 1 天 14 小时

4^# sanowleo 发表于 2007-04-11 15:05

谢谢二位.可是--{$a <.
{$a <=> $b}
这儿还是看不懂.
还有scalar(@data%2)
返回的标量返回到哪儿去了,我也不知道.

qiang

UID: 17966
帖子: 1
积分: 2
在线时间: 10 分钟

5^# qiang 发表于 2007-04-12 07:25

$a, $b 是 Perl 里predefi.
$a, $b 是 Perl 里predefined 的包变量，@_ 数组 elements 传递到 $a 和 $b 里，然后做比较。详细请看 perldoc -f sort

至于 scalar( @data % 2 )，这里没有明确说返回，但如果这是你的 subroutine 的最后一个语句，那么语句运行结果就是返回的值。另外，我看不出 scalar 在这里有什么用处。