99 bottles of beer on the wall

99 bottles of beer on the wall, 99 bottles of beer, you
take one down, pass it around, 98 bottles of beer on the
wall (please enjoy responsibly)

#!/usr/bin/perl

use warnings;
use strict;

my $beer=99;

while ($beer>0) {
    print "$beer bottles of beer on the wall, $beer bottles of beer\nY
+ou take one down, and pass it around, $beer bottles of Beer on the wa
+ll\n";
    $beer--;
    sleep 1;
}
[download]

Comment on 99 bottles of beer on the wall Download Code
Re: 99 bottles of beer on the wall by bart (Canon) on Apr 02, 2004 at 19:38 UTC
You didn't provide a mechanism that changes "bottles" to "bottle" when `$beer==1`. Oh, and $beer should be decremented at the moment you say "take one down".	[reply] [d/l]
Re: 99 bottles of beer on the wall by corenth (Monk) on Apr 02, 2004 at 19:39 UTC
`while ($beer>0) { print "$beer bottles of beer on the wall, $beer bottles of beer\nY +ou take one down, and pass it around,"; $beer--; #got to subtract beer here!!! print "$beer bottles of Beer on the wall\n"; sleep 1; }` [download] Great fun!!! :) $state->{tired} = "true";	[reply] [d/l]
Re: 99 bottles of beer on the wall by mojotoad (Monsignor) on Apr 02, 2004 at 23:24 UTC
You'll probably be interested in node 99 Bottles Of Beer (can't we do better). Just cause I'm chirpy today, I'll reprise my not-very-terse solution: `#!/usr/bin/perl $bc = abs(shift \|\| 100); $p_sub = sub { 'Take ' . (shift == 1 ? 'it' : 'one') . " down, pass it around,\n" }; $b_sub = sub { 'bottle' . (shift != 1 ? 's' : '') }; $c_sub = sub { $_ = shift\|\|'No'; "$_ " . &$b_sub($_) . ' of beer' }; $w_sub = sub { &$c_sub(shift) . " on the wall"; }; $sub = sub { $_ = shift; print &$w_sub($_), ",\n", &$c_sub($_), ",\n", &$p_sub($_), &$w_sub(--$_), ".\n\n" }; map(&$sub($_), reverse(1 .. $bc)); print "burp!\n";` [download] Matt	[reply] [d/l]
Re: Re: 99 bottles of beer on the wall by bassplayer (Monsignor) on Apr 09, 2004 at 13:46 UTC
Or you might enjoy this node... or this one... and there's this, and this and this... and if you enjoy talking like a pirate, you might even enjoy this little beauty. Arrr! bassplayer	[reply]


Perl Monk, Perl Meditation
	PerlMonks

99 bottles of beer on the wall

How many continents have you visited?