The song of Aragorn

[Fengor]

Erudil's poem about The Doom of the Noldor has inspired me to this little poem. It's my first try, so please be gentle with me *g*

#!/usr/bin/perl
#
# Song of Aragorn by J.R.R. Tolkien
#
# All that is gold does not glitter,
# Not all those who wander are lost;
# The old that is strong does not wither,
# Deep roots are not reached by the frost.
#
# From the ashes a fire shall be woken,
# A light from the shadows shall spring;
# Renewed shall be blade that was broken,
# The crownless again shall be king.

$_='Song of Aragorn';

$all{'gold'} = 'not glitter';
foreach $wanderer ([0,1,0,0,0]) {
  if ($wanderer) {print 'not lost'}}
unless ($old eq 'strong') {$old--}
if ($roots ne 'deep') { $roots='frost' }

ashes('wake');
$light=shift @shadows;
$blade = join ('blade', 'that', 'was', 'broken');
$crownless='king';

sub ashes { 
  my $action=shift;
  if ($action eq 'wake') { print 'fire' }
}

Atenio ;-)

--
"WHAT CAN THE HARVEST HOPE FOR IF NOT THE CARE OF THE REAPER MAN"
-- Terry Pratchett, "Reaper Man"

[rob_au]

Very neat, one change which I would make ...

$blade = join ('blade', 'that', 'was', 'broken');

... to the following ...

$blade = join '', split ('', 'blade');

Otherwise, quite timely and neat ... ++Fengor

 

perl -e 's&&[e-mail]&&&split/[@.]/&&s&.com.&_&&&print'

[Fengor]

Hmmm nice idea, but i think I'll leave it as it is. But i'll remember this use of split for further poems ;-)

thank you
fengor

--
"WHAT CAN THE HARVEST HOPE FOR IF NOT THE CARE OF THE REAPER MAN"
-- Terry Pratchett, "Reaper Man"

[moeffju]

Yap, very nice, buuut.. shouldn't the "fire" be in quotes?
Otherwise: rules :)