#!/usr/bin/perl use CGI; $cgi = new CGI; print $cgi->header; print "Random names
\n";
$v = $cgi->param('vowels') || 'a,ae,ai,e,ea,ee,ei,eu,i,o,oo,ou,u';
$c = $cgi->param('consonants') || 'b,c,d,f,g,h,j,k,l,m,n,p,ph,q,r,s,sh,st,t,th,v,w,x,y,z';
$syl = $cgi->param('sylables') || 'vc,cv,cvc,v';
$max = 8;
$maxs = 4;
$mins = 0.1;
@v = split ',', $v;
@c = split ',', $c;
@syl = split ',', $syl;
for ($i = 0; $i <$max; $i++)
{ $sylables = $mins + rand($maxs-$mins);
# $sylables = 2;
$word = '';
for ($s = 0; $s < $sylables; $s++)
{ $syl1 = @syl[rand(@syl)];
for ($l = 0; $l < length ($syl1); $l++)
{ if (substr ($syl1, $l, 1) eq 'v')
{ @cset = @v; }
else
{ @cset = @c; }
$word .= @cset[rand(@cset)];
}
$word .= '-';
}
$word = ucfirst $word;
$word =~ s/-$//g;
print "$word
\n";
}
print '