Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

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
Re: The road goes ever on and on
by choroba (Abbot) on Feb 06, 2013 at 11:24 UTC
    I'd end it with
    no feature 'say'; say wither_then();
    لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (14)
As of 2014-12-26 17:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (174 votes), past polls