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

Replies are listed 'Best First'.
Re: The road goes ever on and on
by choroba (Bishop) 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?
[jdporter]: but I'd like to let the user specify it as individual bits, i.e. 0b0000000100000001
[jdporter]: there is no bit/binary equivalent of hex, right?
[jdporter]: I guess that the most direct way of doing it is with some magical incantation involving unpack or whatever
[jdporter]: let me google that for me ;-)
[jdporter]: hex points explicitly to oct, which does the job. :-D
[jdporter]: omg, I f love Perl!
[choroba]: say unpack 'H*', pack 'B*', $mask =~ /0b([01]+)/;

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (11)
As of 2018-02-20 16:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    When it is dark outside I am happiest to see ...














    Results (272 votes). Check out past polls.

    Notices?