Re: (jeffa) Re: 99 bottles of beer on the Wall

[ignatz]

in reply to (jeffa) Re: 99 bottles of beer on the Wall
in thread 99 bottles of beer on the Wall

Getting rid of the warning and making it just a little bit prettier:

#!/usr/bin/perl -w

use strict;
use Lingua::EN::Nums2Words; 

my $beer = shift || 99;
$beer = abs($beer);

print how_many($beer), ",\n",
   how_many($beer), ".\n",
   "Take one down, pass it around,\n",
   how_many(--$beer), ".\n\n"
while $beer;

sub how_many {
   my $numb = &num2word(shift);
   $numb =~ s/(\w)(.*)/\u$1\L$2/;  
   return $numb
      . ' bottle' 
      . ($numb eq 'One' ? '' : 's')
      . ' of beer on the wall'
   ;
}

Requires Lingua::EN::Nums2Words.

()-()
 \"/
  `                                                     

[ignatz]

Here's the first joke that I can remember telling as a kid. It still cracks em up today.

#!/usr/bin/perl -w

use strict;
use Lingua::EN::Nums2Words; 

my $beer = shift || 99;
$beer = abs($beer);

for (-9..$beer) {
    print how_many($beer), ",\n",
       how_many($beer), ".\n",
       "Take one down, pass it around,\n",
       how_many(--$beer), ".\n\n"
}

sub how_many {
   my $numb = &num2word(shift);
   $numb =~ s/(\w)(.*)/\u$1\L$2/;  
   return $numb
      . ' bottle' 
      . ($numb eq 'One' ? '' : 's')
      . ' of beer on the wall'
   ;
}

()-()
 \"/
  `