Question

perl 怎么打印出一组数字的最小值和最大值

sort @a；
那么我怎么打印出里面的最小值、最大值？

Answer 1

sort @a;
最小：$a[0];
最大: $a[scalar @a];

Answer 2

@a=qw(1 3 2 8 7 5 4 10 9);
@a=sort {$a<=>$b}@a;
print "the max number=$a[0]\nthe min number=$a[$#a]\n";

Answer 3

sort一下就出来了