Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?


by jdporter (Chancellor)
on Nov 05, 2002 at 17:40 UTC ( [id://210525] : poem . print w/replies, xml ) Need Help??

foreach ( @thing ) { return; return; return; exists $season{$_}; return; return; return; and time foreach @purpose unless $heaven; # :-/ }

Replies are listed 'Best First'.
Re: Ecclesiastes
by Mr. Muskrat (Canon) on Nov 05, 2002 at 19:05 UTC
    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.

    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)

      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 $_; }

Re: Ecclesiastes
by sauoq (Abbot) on Nov 07, 2002 at 20:12 UTC

    I think the Byrds song, Turn, Turn, Turn, which was based on Ecclisiastes than it does to Ecclesiastes, was the real inspiration here.

    and time foreach @purpose unless $heaven; # :-/

    The actual line was: "And a time to every purpose, under Heaven." Here's my try at it:

    And, 1 * time for map { $Heaven/$_ } @purpose
    "My two cents aren't worth a dime.";
      Actually the Byrds got it from either Pete Seeger or from the Weavers (Pete Seeger was a member of that group too).

      I am only relying on my very untrustworthy memory here.


Re: Ecclesiastes
by BigLug (Chaplain) on Nov 08, 2002 at 05:54 UTC
    Excellent poetry, however let me suggest that 'And a time for every purpose under heaven' could be:
    foreach @{$heaven{purpose}} { $_ = time}
    Unfortunately this will set every purpose (under %heaven) to the same time (unless perl is running very slow). However the Byrds don't necesarily say that they're different times. Just that there *is* a time for every purpose.