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