循環的默認控制變量為$_

?

　　參數數組@_

?

　　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;

　　　　

　　

轉載于:https://www.cnblogs.com/frank2008syj/archive/2012/09/10/2674040.html

總結

以上是生活随笔為你收集整理的Perl Note的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。