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";

 }

}

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