Perl中控制結構的用法

if控制結構

chomp(my $a = <STDIN>);  使用者輸入變數$a的值if($a > 0){  若$a大於0則執行命令        print "$a is larger than 0\n"; } elsif($a == 0){  若$a等於0則執行命令        print "$a equals 0\n"; } else{  若$a小於0則執行命令        print "$a is smaller than 0\n"; }

unless控制結構與if作用相反，表示判斷為假時執行命令

chomp (my $a = <STDIN>); unless($a > 0){         print "$a is not larger than 0\n"; }

while控制結構

$b = 0;  給變數$b賦值為0while($b < 20){  當$b小於20時則執行迴圈裡的命令        $b++;         say "$b"; }

查看本欄目更多精彩內容：http://www.bianceng.cnhttp://www.bianceng.cn/Programming/extra/

while(<>){  始終讓使用者輸入字串        if(/fred/){  若輸入的字串中包含"fred"則列印，否則不列印                print;         } }

until控制結構，與while作用相反，當判斷為假時執行迴圈

until(0){         print "test"; }

foreach控制結構

foreach (1..10){  列表為1到10的數值，並對其進行迴圈列印        print "$_\n"; }

foreach $str (qw/hello bye see you/){  對字串的列表進行迴圈列印        print "$str\n"; }

for控制結構，與foreach類似

for ($i=10;$i>0;$i--){  變數$i從10到1迴圈遞減並列印        print "$i\n"; }

本文出自 “努力為之” 部落格，請務必保留此出處http://carllai.blog.51cto.com/1664997/1186224