99 Bottles of Beer

Voting

Please select* Bad as Hell** Nothing new*** Good**** Nice Coding***** TOP GEEK

Category

real language

Bookmarking

# Copyright 2001 Christopher J. Carlson <cjc@dobbz.com>
# All Rights Reserved

         $a=
        "cpuu
       \bmft p
       \bg cff
       \bs";$b
       ="po ui
       \bf xbm
      \bm";$c="
      Ypv ublf p
     \bof epxo qb
   \btt ju bspvoe";
  $a =~ s/\n//;$a =~
  s/\s+/ /g; $b   =~
  s/\n// ;  $b    =~
  s/\s+/ /g;$c    =~
  s/\n// ;  $c    =~
  s/\s+/ /g;$a    =~
  y/b-z/a-z/;$b   =~
  tr/b-z/a-z/;$c  =~
  tr/b-z/a-z/ ; for(
  $d=100;$d>0;$d--){
  print"$d $a $b $d"
  ;print" $a,\n$c, "
  ;print($d-1);print
  " $a $b.\n";} $x =
  "cjc"; $y="dobbz";
  $z="com";print"\n"
  ;print "- $x\@$y."
   ;print"$z \n\n";

Alternative Versions

Version	Author	Date	Comments	Rate
bottled by Acme::EyeDrops	Andrew Savige	06/04/05	76
for signature	Randolph Chung, Joey Hess	04/20/05	0
standard version	Jim Menard	04/20/05	2
Lingua::EN::Inflect	Marty Pauley	04/20/05	1
minimal version	Mark Sheppard	06/01/05	1
object-oriented version	Scott Bryce	05/15/05	1
polyglot	Jeff Connelly	04/20/05	0
BigInt	Anonymous	04/20/05	0

Comments

 Jonatan Andersson said on 05/22/05 13:05:19

What label of beer is that?

 Brain said on 07/29/05 16:58:09

This looks much better than the other bottled beer variant and has actually been done by hand and not by a module, kudos to the programmer

 Jon said on 08/13/05 13:18:20

One big problem with this script is that this one says "1 bottles" while the other bottle one actually does it in proper english.

 Welpe said on 11/22/05 13:31:13

After all, this one shows only one bottle ;o)

 Fernando said on 04/16/07 09:53:01

I agree that this one is really cool but you can't discredit the author of the other version since he wrote the module as well!

kudos to both then!

 RiV said on 01/11/10 21:45:10

\b doesn't work if you output to a file. Also, it counts down from 100.

 pdepmcp said on 07/08/10 16:32:48

It prints a simply but incorrect version of the song.
Previous notes are correct and I have to add the the last row in the countdown should not be "You take one down pass it around, 0 bottles of beer on the wall." but "Take one down and pass it around, no more bottles of beer on the wall.".

It misses the last two verses as well, but almost all versions I saw do that.

Add Comment

Please provide a value for the fields Name, Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.

Please don't post large portions of code here! Use the form to submit new examples or updates instead!

Name:

eMail:

URL:

Security Code:
  
Comment: