Perl Note

　　

　　循环的默认控制变量为$_

 

　　参数数组@_

 

　　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;