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.
my @line1 = ('annoying sensei',
'oh, young grasshopper',
'you aburi brain'
my @line2 = ('learn to run before you walk',
'he thinks he knows everything',
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";
Seeing as this is my first program, if anyone could give me some pointers, that would be uber.
SOA, DOA, GOA, whatever,