RE: [FWP] name-a-band

["Mark Whitaker (EML)" <Mark.Whitaker@eml.ericsson.se>]

Fun, but unnecessary. Everyone knows that the best way to generate band names is by using the titles of Far Side cartoons. Coming soon to a venue near you: When Cousins Marry, with special guests Cheap Pocket Octopus!

Mark


-----Original Message-----
From: Andy Lester [mailto:andy@petdance.com]
Sent: 16 January 2000 18:38
To: chicago-pm@topica.com
Cc: fwp@technofile.org
Subject: [FWP] name-a-band



I wrote up a little band name generator that sucks up /usr/dict/words and
cranks out band names.  They turn out to be eerily feasible.

xoxo,
Andy

#!perl -w

use strict;

open( IN, "<words.txt" ) or die;
my @dict = <IN>;
close IN;
chomp @dict;

#warn "Read ", scalar @dict, " words\n";
while ( my $mask = <DATA> ) {
    my @words;
    for ( 1..5 ) {
        push( @words, ucfirst @dict[ int(rand scalar @dict) + 1 ] );
    }
    printf( $mask, @words );
}   # while


__END__
The %s %s
The %s %s of %s
%s %s and the %s
%s and the %s %s
%s %s
%s


--
Andy Lester
andy@petdance.com
"A boy should be able to name his cat Spatula 
if he damn well wants to." -- DevilCrayon


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe