Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
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 rifling through the Monastery: (6)
As of 2014-08-29 02:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (275 votes), past polls