Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

My Friend and Mine!

by madtoperl (Monk)
on Apr 10, 2006 at 10:49 UTC ( #542254=poem: print w/ replies, xml ) Need Help??

#!/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

2006-10-08 Unapproved by planetscape once evidence of habitual plagiarism uncovered.

Comment on My Friend and Mine!
Re: My Friend and Mine!
by CountZero (Bishop) on Apr 10, 2006 at 21:09 UTC
    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!
by SamCG (Hermit) on Apr 24, 2006 at 14:03 UTC
    It's very remniscent of

    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 @p1;so brutally;d;$n=reverse;$c=$s**$#p;print(''.$c^chop($n))while($c/=$#p)>=1;

    Edit: g0n removed link to illicit online copy of copyrighted work

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://542254]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (9)
As of 2014-08-20 13:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (113 votes), past polls