use constant EMPTY => 0; $bottles{beer} = 99; sub take_one_down { return --$bottles{beer}; } sub pass_around { print "No more beer\n" and exit($bar) if ($bottles{beer} eq EMPTY); } print "$bottles{beer} on the wall\n"; while ($bottles{beer}) { take_one_down($bottles{beer}); pass_around($bottles{beer}); print "$bottles{beer} on the wall\n"; }
Actually takes the beer off your wall.
UPDATE: Since I am seem to be getting some flak. I decided to write this one in an effort to be slightly more visually poetic while still running. Of course there are many ways to do it (that's what makes Perl so great), I just wanted something up there that read more poetically.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: 99 Bottles Of Beer
by blazar (Canon) on Oct 14, 2006 at 10:04 UTC | |
by kaif (Friar) on Oct 15, 2006 at 04:44 UTC | |
Re: 99 Bottles Of Beer
by gellyfish (Monsignor) on Oct 16, 2006 at 12:56 UTC |
Back to
Perl Poetry