Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Black Perl Revisited

by Ovid (Cardinal)
on Oct 17, 2006 at 08:29 UTC ( #578707=poem: print w/ replies, xml ) Need Help??

Note: I haven't seen anyone else try this, so if this is duplicated effort, my apologies to the original author.

Many of you are familiar with the famous Black Perl poem. This poem, written for Perl 3, appeared on April Fools day, 1990 on Usenet and was purportedly from Larry Wall, though as I recall, the headers were forged. However, it no longer compiles under Perl 5. So I tweaked it. It still doesn't do anything, but it compiles.

BEFOREHAND: close door, each window & exit; wait until time. open spellbook, study, select it, confess, tell, deny; write it, print the hex while each watches, reverse "its length", write again; kill spiders, pop them, chop, split, kill them. unlink arms, shift, wait & listen (listening, wait), sort the flock (then, warn "the goats". kill "the sheep"); kill them, dump qualms, shift moralities, values aside, each one; die sheep, die, reverse system you accept (reject, respect); next step, kill next sacrifice, each sacrifice, wait, redo ritual until "all the spirits are pleased"; do it ("as they say"). do it(*everyone***must***participate***in***forbidden**s*e*x*). return last victim; package body; exit crypt (time, times & "half a time") & close it, select (quickly) & warn next victim; AFTERWORDS: tell nobody. wait, wait until time; wait until next year, next decade; sleep, sleep, die yourself and rest at last

Update: and from a friend of mine, for whom I wound up rewriting this because of a couple of misconceptions of his (email reprinted with permission):


I was at a dive bar tonight. They had a poetry reading, open mic. and allowed non-original poetry.

I got on the net and looked up Black Perl.

I read the version at http://internet.ls-la.net/comppoems/black-perl.html. (with full attribution of course)

BROUGHT DOWN THE HOUSE!

Before the read I asked, "Show of hands, how many here are computer programmers?". No hands went up. Then, "How many people here have heard of the programming language 'perl'?". A couple of cheers from the crowd.

I then told the crowd, "perl stands for 'Practical Extraction and Report Language', or, as those who actually program in the language call it, 'Pathologically Eclectic Rubbish Lister'"

After explaining that the following poem was written by the creator of perl, I explained, "This poem is NOT written in English. It is written in the programming language 'perl' ", and read.

It won two awards, Best Nonoriginal Poem, and Best Poem of the night. I won Best Presentation. Kudo's to Larry, he made me look good. ;-)

After the reading I was approached by a person who said that the peom couldn't possibly compile. I invited him to download perl from ActiveState and download a copy of the poem written for the version of perl that he downloaded and test it for himself. He told me, 'That was a great poem and poems do not compile'. Then came the Zen moment, I said. 'That poem is not a poem'. From one atheist to another, I swear to GOD that is what I said!

He is probably still blinking. ;-)


Update 2: a friend just pointed me to Black Perl updated for Perl 5.

--

Cheers,
Ovid

New address of my CGI Course.

Comment on Black Perl Revisited
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://578707]
Approved by planetscape
Front-paged by planetscape
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (5)
As of 2014-10-26 08:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (152 votes), past polls