﹝學習記錄﹞- Perl – 迴圈 for, while

程式: 列出 0100間隔5的數字  

運算子 % : 計算除法餘數 

#for (my $i=0; $i<=100; $i +=5){

#  print $i, " ";

#}

print '='x60,"\n";

my $num=0;

while ($num>=0){

  if ($num > 100){last;}

  if (($num % 5) >0){  # $num 除以5的餘數大於0

    $num++;

    next;

  }

  print "$num ";

  $num++;

}

print "\n", '='x60,"\n";

 

執行程式結果:

arrow
arrow

    yunc 發表在 痞客邦 留言(0) 人氣()