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内的偶数

  if (($_%2 eq 0))

  {

    print $_."\n";

本文转自zhaoyun00 51CTO博客，原文链接:http://blog.51cto.com/zhaoyun/841421