Perl Note

whitek

　　
　　循环的默认控制变量为$_
　　
　　参数数组@_
　　
　　sub max {
　　$max = shift @_;
　　foreach (@_) {
　　if ($_ > $max) {
　　$max = $_;
　　}　
　　}
　　$max;
　　}
　　
　　$maxNum = &max (1, 5, 3, 2);
　　//列表可能为空， 调用者得注意返回值可能为undef
　　
　　
　　my($num) = @_;　　#list context, same with ($num) = @_;　　　　return the first one of parameters.
　　my $num = @_;　　  #scalar context, same with $num = @_;　　    return the number of parameters.
　　//P.S. ：新声明的变量最好都加上my.
　　
　　
　　my @names = qw / fred barney betty dino wilma pebbles bamm-bamm /;
　　my $result = &which_element_is( "betty", @names );
　　print $result . "\n";
　　
　　sub which_element_is {  
　　#用my声明参数名，一个是$what，表示要搜索的内容；另一个是@array，表示供搜索的数组。  
　　my($val, @array) = @_;　　　　#赋值参数列表
　　foreach (0..$#array) {   
　　if ($val eq $array[$_]) {   
　　return $_;   
　　}  
　　}
　　-1;  #explicit
　　}
　　
　　我们常常利用“逻辑或”提供变量的默认取值。
　　短路操作符求得的值不只是简单的布尔值，而是最后运算的那部分表达式的值。
　　1.my $last_name = $last_name{$someone} || '(No last name)';
　　定义或操作符//
　　use 5.010;
　　my $last_name = $last_name{$someone} // '(No last name)';
　　use warnings;
　　my $name;　　#没有值，未定义！
　　printf "%s", $name // '';
　　2.($m < $n) && ($m = $n);
　　即：if ($m < $n) { $m = $n;}
　　或 $m = $n if $m < $n;