Meow, MEOW, meow! Truck.

[joel]

"meow.pl":

#!/usr/bin/perl
# Runs from Mac OS X

my $n = 1;
my @voices = qw(bruce alex fred kathy vicki victoria);

$| = 1;

do {
$voice = $voices[int(rand($#voices+1))];
$out = "meow";
$out =~ s/e/ee/ if (rand() < 0.2);
$out .= '!' if (rand() < 0.4);
$out = 'Truck' if (rand() < 0.05) && ($n > 3

Comments

[maradydd]

FWIW, on 10.4 "Alex" isn't a recognised voice and it wants the voice names capitalised.

John Haley's reaction

[anonymous]

"A truck doesn't say 'Meow.'" (John Haley is three years old.)