99 bottles of beer: Difference between revisions
Content added Content deleted
(→{{header|Perl}}: Closing lang tag) |
(→{{header|Perl}}: Fix excessive line length.) |
||
Line 3,315: | Line 3,315: | ||
Correct grammar and nice output spacing way: |
Correct grammar and nice output spacing way: |
||
<lang perl>my $num = 99; #starting bottle count |
|||
<lang perl>my $num = 99; #starting bottle count |
|||
for (0..98) { #times going through |
for (0..98) { #times going through |
||
my $s = "s" unless ($num == 1); #grammar |
my $s = "s" unless ($num == 1); #grammar |