Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

The road goes ever on and on

by mrguy123 (Hermit)
on Feb 06, 2013 at 10:01 UTC ( #1017372=poem: print w/ replies, xml ) Need Help??

My first attempt at a Perl Poem :)
Inspired by a movie I just saw and a book I read many times
original Poem:
The Road goes ever on and on Down from the door where it began. Now far ahead the Road has gone, And I must follow, if I can, Pursuing it with eager feet, Until it joins some larger way Where many paths and errands meet. And whither then? I cannot say. ---Bilbo Baggins
And my very humble attempt:
use EagerFeat; use constant{ OnAndOn =>1, TRUE =>1, }; while ($Road == OnAndOn){ if ($can){ $follow = TRUE; } elsif (join(':', $Road,$larger_way)){ meet($errands, $paths); last; } } $wither_then? cannot():say();

Mr Guy

Comment on The road goes ever on and on
Select or Download Code
Replies are listed 'Best First'.
Re: The road goes ever on and on
by choroba (Canon) on Feb 06, 2013 at 11:24 UTC
    I'd end it with
    no feature 'say'; say wither_then();
    لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://1017372]
Approved by Old_Gray_Bear
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (7)
As of 2015-10-07 18:29 GMT
Find Nodes?
    Voting Booth?

    Does Humor Belong in Programming?

    Results (197 votes), past polls