Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Yeats - The Second Coming

by robartes (Priest)
on Mar 14, 2003 at 09:00 UTC ( #242982=poem: print w/replies, xml ) Need Help??

Again in honor to the inspiration for my nickname, here's the last verse of one of W.B. Yeats' best known poems. It's one of those 'translate into Perl' poems - as such it compiles and runs (though not under strict).
# Twenty centuries of stony sleep # were vexed to nightmare by a rocking cradle. # And what rough beast, its hour come round at last # slouches towards Bethlehem to be born? # # The Second Coming # W.B. Yeats use constant { CENTURY => 3153600000 }; package stone; sub sleep (;$) { &CORE::sleep(shift); } package Cradle::Rocking; sub vex {}; package Yeats; Cradle::Rocking::vex( dest => 'Nightmare', subject => sub { stone::sleep CENTURY for (0 .. 19) } ); my %beasts; $beasts{'rough'} = [{ dest => 'Eire', mode => 'course', hour => 1 }, { dest => 'Innisfree', mode => 'amble', hour => 2} +, { dest => 'Bethlehem', mode => 'slouch', hour => 3 +}, ]; (my $beast) = grep { $_->{dest} eq 'Bethlehem' && $_->{mode} eq 'slouch' } @{$beasts{'rough'}}; while ('Eternity') { last if (((localtime(time))[2] == $beast->{hour})); } bless $beast, 'Life';

CU
Robartes-

Replies are listed 'Best First'.
Re: Yeats - The Second Coming
by Mr_Person (Hermit) on Mar 14, 2003 at 20:51 UTC
    That's really great. I especially like how the correct beast is selected and then "blessed" with life at just the right hour :-).

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://242982]
Approved by virtualsue
Front-paged by newrisedesigns
help
Chatterbox?
[james28909]: everything past the first two things you piked from my posts are irrelevant to me and my beliefs. they are side effects.
[james28909]: two or three. if it has to do with how humans are handling said situations, then that is after they were able to evolve into those problems. agnostic means only believe with evidence. i took that from a tyson video
[james28909]: and it seems that racism suggest that there is indeed a better race, but that is for evolution to decide
[1nickt]: "right now, humans are smarter than in any of those times": define "smart"
[erix]: ah, now you're appraoch downvote-territory ;)

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (11)
As of 2017-12-15 14:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What programming language do you hate the most?




















    Results (433 votes). Check out past polls.

    Notices?