Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change


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?

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

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (5)
As of 2015-11-27 23:36 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (734 votes), past polls