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-
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|