FizzBuzz
FizzBuzzの問題が、プログラミングの試験に出るという事で
さっそく解いてみた。
間違っていたら、コメント下さい(^^)v
#!/usr/bin/perl -w
# PROGRAM NAME : FizzBuzz.cgi
##### モジュールの読込み
use utf8;
use warnings;
use strict;
use CGI;
our $cgi = new CGI;
print $cgi->header('text/plain; charset=utf-8');
for(my $i=1 ; $i <100 ; $i++){
print "$i:";
if($i%3 == 0){
print "Fizz";
}
if($i%5 == 0){
print "Buzz";
}
print "\n";
}#for end