20 lines
261 B
Perl
Executable file
20 lines
261 B
Perl
Executable file
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
#Fizz buzz example
|
|
# For 1 .. 10 if odd print fizz, otherwise print buzz
|
|
|
|
for my $num (1..10) {
|
|
# print "$num: "; # Debug
|
|
if ($num % 2) {
|
|
print "fizz\n";
|
|
}
|
|
else {
|
|
print "buzz\n";
|
|
}
|
|
}
|
|
|
|
|
|
|