Crying Song

YAPFPP (Yet Another Pink Floyd Perl Poetry) to jump on the bandwagon (see Eclipse).

print qq|We @{[keys%$_]} and @{[keys%$_]}\n|x2,values%$_,"\n"for
         { smile => 'Laughter echoes in your eyes'   },
         { climb => 'Foot falls softly in the pines' },
         { cry   => 'Sadness passes in a while'      },
         { roll  => 'Help me roll away the stone'    },
[download]

Comment on Crying Song Download Code

Replies are listed 'Best First'.
Re: Crying Song by atcroft (Abbot) on Jun 17, 2002 at 03:03 UTC
Nice piece of work. Loved the acronym, too. Didn't realize they could be so short, but then looked at the lyrics for "One of These Days" (by Waters, Wright, Mason, and Gilmour, from their album Works), and came up with this one: `split('', $you) if ($day = rand(2))` [download] Update: I sit corrected-jeffa pointed out that the song originally showed up on their album Meddle before showing up in the Works compilation.	[reply] [d/l]
Re: Re: Crying Song by sschneid (Deacon) on Jun 18, 2002 at 22:20 UTC
Or we could go one step further, if we want to be really short and abstract... :) `for (1..4) { <STDIN> }` [download] Is there anybody out there?	[reply] [d/l]