while (%C.$chambers){
    foreach ($seagirls){
        print "w/"=~/$C.'weed'=~(#FF000&&#909F5F)/;
        until ("human"."voices" == not sleep){
            die "we";
        }
    }
}

[download]

this is my translation of t.s. eliot's 'the love song of j. alfred prufrock, i would like any comments and suggestions to it, and no its not supposed to do anything, only be beautifull code poetry

Replies are listed 'Best First'.
Re: Prufrock
by Vautrin (Hermit) on Feb 13, 2004 at 02:57 UTC
    Can you post the original poem?
    Want to support the EFF and FSF by buying cool stuff? Click here.
[reply]
      The original poem could be found by a simple web search, but the relevant stanza here is the last: 
      We have lingered in the chambers of the sea  
By sea-girls wreathed with seaweed red and brown
Till human voices wake us, and we drown.



      Code is (almost) always untested.
      http://www.justicepoetic.net/
[reply]
        thanks jweed, i should have posted the original, but i was pressed for time at the moment i was submitting so i forgot, if you could comment that would be awesome as i admire your abbot status looking up from my lowly level 1-ness
[reply]

Back to Perl Poetry