论坛 › Perl › perl的几个for循环判断

worker321 发表于 2018-8-31 11:42:23

perl的几个for循环判断

#计算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";
　　}
　　}

查看完整版本: perl的几个for循环判断