It's sparse, short, cryptic, and perhaps not very unique,
but someone might find this useful. I like to think it
taps into the unlimited chaotic potential of Perl. Here's
the code.
#!/usr/bin/perl use strict; use warnings; my @words = ("copy ","study ","meditate ","write from scratch "); my @words2 = ("and ","or "); my @words3 = ("scalars ","arrays ","hashes ","regexes ","subroutines " +,"cpan ","perlmonk archives ","cgi "); print $words[rand @words], $words2[rand @words2], $words[rand @words], + $words3[rand @words3], "\n";
Back to
Cool Uses for Perl