Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Yeats - The Second Coming

by robartes (Priest)
on Mar 14, 2003 at 09:00 UTC ( [id://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
Domain Nodelet?
Node Status?
node history
Node Type: poem [id://242982]
Approved by virtualsue
Front-paged by newrisedesigns
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others goofing around in the Monastery: (3)
As of 2024-06-18 21:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?
    erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.