My Friend and Mine!
#!/usr/bin/perl
IN BEACH:
listen (seawaves, light arrangements);
open yourself, wide;
join (you, me),
connect (we,together),
if(like me)
tell me the I*love*you.
else say lie that "TELL U LATER"
do something if distressed;
@dawn, dance;
@evening, sing;
IN HOME:
read (books,$poems,stories) until peaceful of mind;
study if able;
write me if-you-think me;
sort your feelings, reset goals, seek (friends, family, anyone);
do*not*die (like this)
if sin abounds;
AT LAST
keys (hidden), open (locks, doors), tell secrets;
do not, I-beg-you, close them, yet.
accept (yourself, changes),
bind (grief, despair);
require truth, goodness if-you-will, each moment;
select (always), length(good days)
UR THOUGHTS
if(like this)
reply me
else
be cool my dear friend
IN BEACH:
listen (seawaves, light arrangements);
open yourself, wide;
join (you, me),
connect (we,together),
if(like me)
tell me the I*love*you.
else say lie that "TELL U LATER"
do something if distressed;
@dawn, dance;
@evening, sing;
IN HOME:
read (books,$poems,stories) until peaceful of mind;
study if able;
write me if-you-think me;
sort your feelings, reset goals, seek (friends, family, anyone);
do*not*die (like this)
if sin abounds;
AT LAST
keys (hidden), open (locks, doors), tell secrets;
do not, I-beg-you, close them, yet.
accept (yourself, changes),
bind (grief, despair);
require truth, goodness if-you-will, each moment;
select (always), length(good days)
UR THOUGHTS
if(like this)
reply me
else
be cool my dear friend
Re: My Friend and Mine!
created: 2006-04-10 17:09:04
Nice, but it does not parse as valid Perl.
Also, should it not carry a "Parental Advisory: explicit lyrics"-tag for the "Beach"-part
CountZero
"If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law
Re: My Friend and Mine!
created: 2006-04-24 10:03:37
It's very remniscent of
[http://www.unix.org.ua/orelly/perl/prog3/ch27_02.htm|listen]
a lovely poem by Sharon Hopkins. Have you read it?
update: Poem reproduced below
Update: corrected name of Hopkins' poem from "Appeal" (which is the first line) to "listen" -----------------
s''limp';@p=split '!','n!h!p!';s,m,s,;$s=y;$c=slice @p[1];so brutally;d;$n=reverse;$c=$s**$#p;print(''.$c^chop($n))while($c/=$#p)>=1;
[http://www.unix.org.ua/orelly/perl/prog3/ch27_02.htm|listen]
a lovely poem by Sharon Hopkins. Have you read it?
update: Poem reproduced below
#!/usr/bin/perl
APPEAL:
listen (please, please);
open yourself, wide;
join (you, me),
connect (us,together),
tell me.
do something if distressed;
@dawn, dance;
@evening, sing;
read (books,$poems,stories) until peaceful;
study if able;
write me if-you-please;
sort your feelings, reset goals, seek (friends, family, anyone);
do*not*die (like this)
if sin abounds;
keys (hidden), open (locks, doors), tell secrets;
do not, I-beg-you, close them, yet.
accept (yourself, changes),
bind (grief, despair);
require truth, goodness if-you-will, each moment;
select (always), length(of-days)
# listen (a perl poem)
# Sharon Hopkins
# rev. June 19, 1995
Update: corrected name of Hopkins' poem from "Appeal" (which is the first line) to "listen" -----------------
s''limp';@p=split '!','n!h!p!';s,m,s,;$s=y;$c=slice @p[1];so brutally;d;$n=reverse;$c=$s**$#p;print(''.$c^chop($n))while($c/=$#p)>=1;