#計算1到100的和
foreach $i (1..100)
{

? $sum=$sum+$i;
}
print $sum."\n";


#九九表
$j=1;
for $i (1..9)
{

?? for $j ($j..$i)
?? {

??? print "$j"."x"."$i=".$j*$i." " ;

?}
print "\n";
}


#取出1到100內包含7的數和能被7增除的數字
for (1..100)
{

?if(($_ %7 eq 0)||(/7/)){

?? print $_."\n";
?}
}


#取出1到100內的偶數
for (1..100)
{
? if (($_%2 eq 0))
? {

??? print $_."\n";

?}

}

轉載于:https://blog.51cto.com/zhaoyun/841421

總結

以上是生活随笔為你收集整理的perl的几个for循环判断的全部內容，希望文章能夠幫你解決所遇到的問題。

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