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