print "WARNING! &max should get exactly two arguments!\n";
}
#
其余代码和前面一样……
}
上面的
if
判断是在标量上下文中直接使用数组“名称”来取得数组元素的个数,你
应该在第
3
章中见过这个用法。
但在实际编写的
Perl
程序中,这种检查方式很少见,更好的做法是让子程序自动适应
任意数目的参数。
改进版的
&max
子程序
现在让我们来改写
&max
,使它能够接受任意数目的参数:
$maximum = &max(3, 5, 10, 4, 6);
sub max {
my($max_so_far) = shift @_; #
数组中的第一个值,就是目前所见的最大值
foreach (@_) { #
遍历数组
@_
中的其他元素
if ($_ > $max_so_far) { #
当前元素比
$max_so_far
更大吗?
Become an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month, and much more.
O’Reilly covers everything we've got, with content to help us build a world-class technology community, upgrade the capabilities and competencies of our teams, and improve overall team performance as well as their engagement.
Julian F.
Head of Cybersecurity
I wanted to learn C and C++, but it didn't click for me until I picked up an O'Reilly book. When I went on the O’Reilly platform, I was astonished to find all the books there, plus live events and sandboxes so you could play around with the technology.
Addison B.
Field Engineer
I’ve been on the O’Reilly platform for more than eight years. I use a couple of learning platforms, but I'm on O'Reilly more than anybody else. When you're there, you start learning. I'm never disappointed.
Amir M.
Data Platform Tech Lead
I'm always learning. So when I got on to O'Reilly, I was like a kid in a candy store. There are playlists. There are answers. There's on-demand training. It's worth its weight in gold, in terms of what it allows me to do.