#!/usr/bin/perl
use strict;
my $n = shift || 5;
if (open(WORDS, "</usr/share/dict/words")) {
chomp(my @words = <WORDS>);
close(WORDS);
my @out;
for (my $i = 1; $i <= $n; $i++) {
push(@out, $words[int(rand($#words+1))]);
}
print "@out\n";
}
Jun 5 2005, 9:59 am
|
|
Scoobert
 |
Wait...You had a night shift and got mad, said some words, then quit? Thats what I get out of that, perhaps I am just crazy though.
|
It looks like the title could be output from the Perl script. However, I'm just guessing because I've never used Perl and it's not known for being the most readable language around. ;)
| |
Heh, nah. If you look closely, you'll see that the script is what generated the random words. I was using it to create posts and comments to test some new Members site features a while ago. :) Most got deleted after I was done testing, but I decided to leave this one.
| |