in reply to Ecclesiastes

Ecclesiastes 3 (King James Version)
1 To every thing there is a season, and a time to every purpose under 
+the heaven:
2 A time to be born, and a time to die; a time to plant, and a time to
+ pluck up
  that which is planted;
3 A time to kill, and a time to heal; a time to break down, and a time
+ to build up;
4 A time to weep, and a time to laugh; a time to mourn, and a time to 
+dance;
5 A time to cast away stones, and a time to gather stones together; a 
+time to
  embrace, and a time to refrain from embracing;
6 A time to get, and a time to lose; a time to keep, and a time to cas
+t away;
7 A time to rend, and a time to sew; a time to keep silence, and a tim
+e to speak;
8 A time to love, and a time to hate; a time of war, and a time of pea
+ce.

[download]

You are confusing Ecclesiastes with a song based on the verses, but your poetry is still nice. :) So ++ to you!

There is a Season (Turn Turn Turn)

Replies are listed 'Best First'.
Re: Re: Ecclesiastes
by Mr. Muskrat (Canon) on Nov 05, 2002 at 20:06 UTC

    My interpretation of the scripture:

    #!/usr/bin/perl
use warnings;
use strict;

foreach (@_) {
  if ($_->isa('thing')) {
    $_->season(); }
    foreach (purposeUnderHeaven() ) {
      time_to($_);
    }
}

sub purposeUnderHeaven {
  return [
    'be born',          'die',
    'plant',            'pluck up that which is planted',
    'kill',             'heal',
    'break down',       'build up',
    'weep',             'laugh',
    'mourn',            'dance',
    'cast away stones', 'gather stones together',
    'embrace',          'refrain from embracing',
    'get',              'lose',
    'keep',             'cast away',
    'rend',             'sew',
    'keep silence',     'speak',
    'love',             'hate',
    'war',              'peace'
  ];
}

sub time_to { do $_; }

    [download]

[reply]
[d/l]

In Section Perl Poetry