Here is my attempt at the cheezy perl love poem :). It does not rhyme when placed in English, but I think it looks nice in perl, it seemed like the appropriate application for the for loop :). 
open(MYHEART, "my.heart");
@you=<MYHEART>;
for($time = 0; $time <= $eternity; $time++) {
  my $love = $yours;
}
if($yourLove eq $mine) {
  for($time = 0; $time <= $eternity; $time++) {
    my $life += $yours;
  }
} else {
  my $heart = $broken;
}

[download]

Replies are listed 'Best First'.
Re: Cheezy perl love poem
by yosefm (Friar) on Mar 20, 2004 at 10:43 UTC
    Hmmm.... If you actually try to run it the loops will end instantanously, achieving the exact oposite of what you wanted. Maybe you could use 'while (++$time) {'? Nice though. 
    perl -e'$b=unpack"b*",pack"H*","59dfce2d6b1664d3b26cd9969503";\
for(;$a<length$b;$a+=9){print+pack"b8",substr$b,$a,8;}'

    [download]
    My public key
[reply]
[d/l]
      To be completely honest, the thought didn't cross my mind, which is surprising because the while loop is my favorite loop :). What I was thinking at the time was how easily the for loop integrates into this situation for poetic purposes :). Thanks for the tip :), that would also explain why a script I've been working on isn't working properly :).
[reply]
Re: Cheezy perl love poem
by zentara (Cardinal) on Mar 18, 2004 at 15:57 UTC
    It's spring and the hormones are raging in the young bucks. Don't worry you'll get over it around 50.(Nice poem though)
    I'm not really a human, but I play one on earth. flash japh
[reply]
      Hahaha :). I guess if that's what you would like to say :). Anyway, thank you :). I just figured that I've seen the love poem written in perl so many times that I would give it a try, and it gave me a chace to put something out there that was completely original to me :).
[reply]

      /me whinnies and puffs steam out of his nose

      meh.
[reply]
        Easy boy, easy, easy..... I'm just putting this halter on you and walking you to the paddock upwind from the fillies. :-)
        I'm not really a human, but I play one on earth. Cogito ergo sum a bum
[reply]
Re: Cheezy perl love poem
by Anonymous Monk on Mar 24, 2004 at 05:00 UTC
    I think it may be easy to read the code if you replace "$eternity" to "$this_lifetime". I keep looping myself for a very long time until I ran out of memory when I tried to run your code mentally :)
[reply]
      :). That would be a good idea, thanks for the input :).
[reply]

Back to Perl Poetry