LONGING: my $eyes; open(TOSEE, "$you") or die "for you are not here."; if($eyes eq 'blind') { push @me,<TOSEE>; $that{'i'} = 'am nothing' unless $you; } else { $me = *TOSEE; $love = tell $me; do { $you ? $love : $me; } seek TOSEE, $love, $you; my $heart = <$me>; if($you ? $love : $me) { $us = join /$love/, [$you,$me,$heart]; $we = "complete"; } $eyes = "open"; } redo LONGING until $we eq "complete"; # fixed thanks to an anonymousm +onk.

I don't know why I keep doing all these love poems, I guess those chapters in high school english stuck in my head for some reason.. oh well.. what do you think?
I actually learned stuff on this one, that's one of the coolest things about doing perl poetry, I can now use the seek() function and tell().. hehehe..
-brad.. monk in training..

Replies are listed 'Best First'.
RE: longing(4, $you);
by Jonathan (Curate) on Nov 07, 2000 at 20:44 UTC
    Not bad at all. A ++ for effort. I wonder if there is any Perl poetry that doesn't use die or my?

    I could lie down like a tired child,
    And weep away the life of care
    Which I have borne, and yet must bear.
    Shelley 1792-1822
      Now I have a challenge.. heh.. ever since I read this this morning.. its been bouncing back in my head, I'll try to come up with something by tomorrow :)

      -brad.. $perl->poet
RE: longing(4, $you);
by Anonymous Monk on Nov 12, 2000 at 05:27 UTC
    your poem contains a grammatical error. redo LONGING until $we = "complete"; should read: redo LONGIN until $we eq "complete";
RE: longing(4, $you);
by jptxs (Curate) on Nov 07, 2000 at 03:12 UTC
    I don't usually vote on poems but this is a definite ++. Real cool.

    "sometimes when you make a request for the head you don't
    want the big, fat body...don't you go snickering."
                                             -- Nathan Torkington UoP2K a.k.a gnat