Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
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 chilling in the Monastery: (6)
As of 2014-09-20 18:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (160 votes), past polls