#!/usr/bin/perl -w
system('clear');
&mainSubRoutineBlock;
sub mainSubRoutineBlock
{
&setupNumbers;
# &otherVariables;
&mainCalculation;
# printf "$counter\n";
# $counter = ++$counter;
# printf "$counter\n";
# printf ($counter % $fizzNum);
&terminateScript;
}
sub setupNumbers
{
$fizzNum = 3;
$buzzNum = 5;
$newlineNum = 10;
$counter = 1;
}
# sub otherVariables
# {
# if
# }
sub mainCalculation
{
printf "\n\n\n\n\n\n";
while ($counter != 101)
{
if (($counter % $fizzNum) == 0) {printf 'Fizz';}
if (($counter % $buzzNum) == 0) {printf 'Buzz';}
if (($counter % $fizzNum != 0) && ($counter % $buzzNum != 0)) {
printf "$counter";
}
printf ', ';
if (($counter % $newlineNum) == 0) {printf "\n";}
$counter = ++$counter;
}
}
sub terminateScript
{
# tell the user what is
# going on.. it is done
printf "\n\n\n".'The test script has terminated.'."\n\n";
exit;
}
#EOF