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

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

举报该问题

第1个回答 2012-05-07

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

第2个回答 2012-05-07

@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";本回答被提问者采纳

第3个回答 2012-05-07

sort一下就出来了

相似回答

perl: 读取标准输入,找出输入中拥有最大的数字的一行答：if($s=~ m/[0-9]+/){ #用正则表达式匹配数字,如果有赋给$s if($max<$s){ #如果数字大于最大值 max=$s; #把最大值赋给$max maxi=$i;#把最大值所在行号赋给$maxi } } } } print @arr[$maxi];#打印最大值所在行的数据源代码 ...

perl 只提取第一行第一列的值,该怎么做。答：open F, "file" or die "Can't open file";print ((split /\s+/, <F>, 2)[0]);close F;如果你是想提取 Name 那一直行, 那就:open F, "file" or die "Can't open file";print /([^\s]+)/ while <F>; # 直接打印出在close F;或者 my @want = ();open F, "file"...

perl 飞碟操作符{ $a <=> $b } 运行机制答：perl sort 的(内部)次序类似是这样的, 先将第一列,尽量以两个两个一组来排(单数则先留下最後一个),第一轮之後, sort 会记得最大和最小的值,然後, 再以最大那个数开始, 对比最小那个数, 直至最後一个数如果当中有比最大数有更大的数字出现 ( 例如之前说元素量为单数时被遗漏了的最後一...

Perl函数参数的传递和函数参数中多个数组怎么传递答：sub hello { print "Hello @_" }hello ("World!", "I am Robot" ) ; # 打印出 Hello World! I am Robot这里值得留意的就是 @_ 就是装载所有传入的参数的数组 ( 看好了, 这其实是数组啊!! )所以, 将上面的改一下, 就可以:sub hello { print "Hello $_[0]" }hello ("World!

大家正在搜

输出一组数的最大值和最小值求一组数的最大值和最小值求一组数中最大值和最小值的差一组数据的最大值与最小值一组数去掉最大值和最小值一组数中最大值与最小值最大值最小值组距求组数一组数据最大值与最小值之差求组中找两个数和绝对值的最小值

我想请问用perl写程式，写出输入几组数字后可以找出最大值、...

求perl代码计算出这两个方框内的最大值和最小值~~

c语言在一个数组中输入5个数，打印出其中的最小值和最大值的程...

c语言输出一组数最大值和最小值的下标

perl中有求一个数组最大值的函数吗

java如何不用数组打印几个数字中的最大值最小值？

编写程序，输入一个一堆数组，寻找并输出数组中的最大值和最小值

c语言中，从一组数中找最大值和最小值