Name Game in Perl : Enjoy.
azatoth
#!/usr/bin/perl # # # Perlmonks stagenames # feel free to add your own to the arrays srand; @first = qw ( King Maximum Duke Cardinal Mister Miss Rocco Rico Lord Captain Major Don); @second = qw ( Slick Whiplash Leather Dong Contraption Thunder Lightning Viagra Thong ); print "Please enter your name : \n"; chomp($name = <STDIN>); $firstnew = $first[rand @first]; $secondnew = $second [rand @second]; print "$name, Your new \"Perlmonks Also Known As\" shall be : $firstne +w $secondnew\n";
azatoth
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: PerlMonks StageNames!
by neshura (Chaplain) on Jan 18, 2001 at 02:17 UTC | |
Re: PerlMonks StageNames!
by redcloud (Parson) on Jan 18, 2001 at 02:23 UTC | |
Re: PerlMonks StageNames!
by gaudior (Pilgrim) on Jan 19, 2001 at 20:52 UTC | |
Re: PerlMonks StageNames!
by Dragonfly (Priest) on Jan 18, 2001 at 01:52 UTC | |
Re: PerlMonks StageNames!
by azatoth (Curate) on Jan 18, 2001 at 14:45 UTC | |
Re: PerlMonks StageNames!
by damian1301 (Curate) on Feb 04, 2001 at 11:24 UTC | |
(redmist) Re: PerlMonks StageNames!
by redmist (Deacon) on Jan 18, 2001 at 06:59 UTC | |
Re: PerlMonks StageNames!
by Animal (Sexton) on Mar 06, 2001 at 06:30 UTC | |
by T Belich (Novice) on Jun 12, 2001 at 22:40 UTC |
Back to
Cool Uses for Perl