A Thing of Beauty, ...?

Here we go, ... my first attempt at some Perl poetry, ala Keats.

for (;;) {
    $thing{beauty} = $thing{joy};
    $thing{lovliness}++;
    if (0) {
        %thing = ();
    }
    else {
        $thing{bower} = "quiet";
        $thing{sleep} = ["sweet dreams","health","quiet breathing"];
    }
}
# A thing of beauty is a joy for ever:
# Its lovliness increases; it will never
# Pass into nothingness; but still will keep
# A bower quiet for us, and a sleep
# Full of sweet dreams, and health, and quiet breathing.
#
#  - John Keats
[download]

---
echo S 1 [ Y V U | perl -ane 'print reverse map { $_ = chr(ord($_)-1) } @F;'
Warning: Any code posted by tuxz0r is untested, unless otherwise stated, and is used at your own risk.

Comment on A Thing of Beauty, ...? Download Code

Replies are listed 'Best First'.
Re: A Thing of Beauty, ...? by KurtSchwind (Chaplain) on Nov 22, 2007 at 13:57 UTC
Nice. I do sort of wish you had just said it was a Keats poem instead of putting the poem at the end. I would have liked to have figured it out. -- I used to drive a Heisenbergmobile, but every time I looked at the speedometer, I got lost.	[reply]