My first Perl poem!
Hi all,
I've always been fascinated with Perl's ability to resemble a real spoken languange so here is my first Perl poem ever.
It is a bit naive, but I'm a not a poet :-)
I've always been fascinated with Perl's ability to resemble a real spoken languange so here is my first Perl poem ever.
It is a bit naive, but I'm a not a poet :-)
while( exists $true{love} ) {
seek $her, $from, $everywhere;
}
Re: My first Perl poem!
created: 2006-03-29 03:07:38
Or maybe better written as
seek $her, $from, $everywhere if exists $true{love};
Re: My first Perl poem!
created: 2006-03-29 06:39:06
It's Spring, and the hormonal chemicals are causing delusions
amoung the young. Here is an undeluded version. (for jaded old men, who ain't feeling it anymore ;-( )
I'm not really a human, but I play one on earth. flash japh
if ( exists $true{love} ) {
$get_it_while_you_can = 1;
seek $her, $from, $everywhere;
}
else{
seek $him, $for, $everything;
$him_need_a_lawyer = 1;
}
I'm not really a human, but I play one on earth. flash japh
Re^2: My first Perl poem!
created: 2006-03-29 08:20:58
Hmm, 28 year old, father of one, does not count as a jaded old man? Well, maybe not but I do feel jaded and old :-)
But here is even more gloomy one:
But here is even more gloomy one:
if ( exists $true{love} ) {
$get_it_while_you_can = 1;
seek $her, $from, $everywhere;
}
else{
seek $him, $for, $everything
and delete @children{ qw(from fathers life) };
$him_need_a_lawyer = 1;
}