Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

My Friend and Mine!

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

This posting has been designated as off-topic for the PerlMonks web site. Please do not respond to it.


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

Replies are listed 'Best First'.
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

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

Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (5)
As of 2016-12-10 05:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (159 votes). Check out past polls.