[FWP] name-a-band

[Andy Lester <andy@petdance.com>]

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