Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Eclipse

by atcroft (Monsignor)
on Jun 16, 2002 at 23:48 UTC ( #174995=poem: print w/ replies, xml ) Need Help??

This is my first attempt at perl poetry, so please consider that.

Inspired by katgirl's excellent Bohemian Rhapsody (part 1) (and part 2), I attempted the following, an attempt at "Eclipse" from The Dark Side of the Moon by Pink Floyd, written by Roger Waters. (Good song-I can only claim the any bugs in the interpretation. My appreciation to all those where were in the CB who helped with some questions while I was attempting to code this.)

%All; %Everyone; %Everything; $light = "sun"; @all_that_you = qw(touch see taste feel love hate give deal buy beg bo +rrow steal do say eat slight); @all_you = qw(feel distrust save create destroy); @everyone_you = qw(meet fight); @all_that_is = qw(now gone to_come); @everything_under = ("the sun"); @All{@all_that_you, @all_you, @all_that_is} = ("in tune") x (@all_that +_you, @all_you, @all_that_is); @Everyone{@everyone_you} = ("in tune") x @everyone_you; @Everything{@everything_under} = ("in tune") x @everything_under; my $light = "moon"; $dark_side_of_the_moon = undef; $all = "dark";

Update: Found and added link to page containing lyrics after someone suggested that it might be hard to follow for someone unfamiliar with the lyrics. Enjoy.

Comment on Eclipse
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://174995]
Approved by jeffa
Front-paged by jeffa
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (4)
As of 2014-09-02 05:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite cookbook is:










    Results (20 votes), past polls