Hello, fellow monks. This is my first original program and it is a basic haiku generator. I got the idea because we are doing poetry in school and I saw the poem thing by zentara and thought it would be cool.
Seeing as this is my first program, if anyone could give me some pointers, that would be uber.use strict; my @line1 = ('annoying sensei', 'oh, young grasshopper', 'dis-honourable', 'you aburi brain' ); my @line2 = ('learn to run before you walk', 'he thinks he knows everything', 'insubordinate pupil', ); my @line3 = ('hey, wait a minute', 'he must be senile', 'he will face my wrath', 'his brain is not well' ); print $line1[rand @line1], "\n"; print $line2[rand @line2], "\n"; print $line3[rand @line3], "\n";
SOA, DOA, GOA, whatever,
hypknotizzed
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Haiku generator
by holli (Abbot) on Mar 04, 2006 at 21:23 UTC | |
by ambrus (Abbot) on Mar 04, 2006 at 21:34 UTC | |
by hypknotizzed (Beadle) on Mar 04, 2006 at 21:48 UTC | |
by hypknotizzed (Beadle) on Mar 04, 2006 at 21:46 UTC | |
Re: Haiku generator
by chanio (Priest) on Mar 05, 2006 at 04:05 UTC |
Back to
Cool Uses for Perl