Remote-Url: https://en.wikipedia.org/wiki/Black_Perl
Retrieved-at: 2021-12-19 20:59:28.872244+00:00

Black Perl

From Wikipedia, the free encyclopedia
Jump to navigation Jump to search
Code poem
Not to be confused with Black Pearl.

"Black Perl" is a code poem written using the Perl programming language. It was
posted anonymously to Usenet on April 1, 1990,^[1] and is popular among Perl
programmers^[citation needed] as a piece of Perl poetry. Written in Perl 3, the
poem is able to be executed as a program.

[ ]

Contents

  * 1 Attribution
  * 2 Result of program execution
  * 3 "Black Perl"
  * 4 See also
  * 5 References

Attribution[edit]

When posted to the comp.lang.perl newsgroup the poem was attributed to "a
person who wishes to remain anonymous".^[1] Sharon Rauenzahn (n?e Hopkins),
another Perl poet, has been suspected to be the author but has since denied the
claim.^[2]

Result of program execution[edit]

When executed, Black Perl exits on line one, upon reaching the function exit.
The remaining lines are parsed by the Perl interpreter but never actually
executed. The program produces no output.

Though it will not parse under Perl 5, multiple independent updates to Black
Perl to make it parsable in Perl 5 have been published.^[3]^[4]

"Black Perl"[edit]

BEFOREHAND: close door, each window & exit; wait until time.
    open spellbook, study, read (scan, select, tell us);
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 to reverse the system
        you accept (reject, respect);
next step,
    kill the 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 your next victim;
AFTERWORDS: tell nobody.
    wait, wait until time;
    wait until next year, next decade;
        sleep, sleep, die yourself,
        die at last

See also[edit]

  * Digital poetry
  * PerlMonks

References[edit]

 1. ^ ^a ^b Wall, Larry; Christiansen, Tom; Orwant, Jon (July 2000).
    Programming Perl, Third Edition. O'Reilly. p. 649. ISBN 0-596-00027-8.
 2. ^ Sharon Hopkins (1993-04-16). "Re: Forking a bunch of processes..."
    Newsgroup: comp.lang.perl. Usenet: 1993Apr16.233742.21214@cheshire.oxy.edu.
    Retrieved December 5, 2014.
 3. ^ jonadab (2003-02-21). "Black Perl updated for Perl 5". Retrieved 
    2007-09-15.
 4. ^ Ovid (2006-10-17). "Black Perl Revisited". Retrieved 2007-09-15.

*
Retrieved from "https://en.wikipedia.org/w/index.php?title=Black_Perl&oldid=
1047594369"
Categories:

  * American poems
  * Perl
  * 1990 poems

Hidden categories:

  * Articles with short description
  * Short description is different from Wikidata
  * All articles with unsourced statements
  * Articles with unsourced statements from March 2019

Navigation menu

Personal tools

  * Not logged in
  * Talk
  * Contributions
  * Create account
  * Log in

Namespaces

  * Article
  * Talk

[ ]

Variants expanded collapsed

Views

  * Read
  * Edit
  * View history

[ ]

More expanded collapsed

Search

[                    ] [Search] [Go]
 

Navigation

  * Main page
  * Contents
  * Current events
  * Random article
  * About Wikipedia
  * Contact us
  * Donate

Contribute

  * Help
  * Learn to edit
  * Community portal
  * Recent changes
  * Upload file

Tools

  * What links here
  * Related changes
  * Upload file
  * Special pages
  * Permanent link
  * Page information
  * Cite this page
  * Wikidata item

Print/export

  * Download as PDF
  * Printable version

Languages

  * Fran?ais
  * Bahasa Indonesia
  * Italiano

Edit links

  * This page was last edited on 1 October 2021, at 15:59 (UTC).
  * Text is available under the Creative Commons Attribution-ShareAlike License
     ; additional terms may apply. By using this site, you agree to the Terms
    of Use and Privacy Policy. Wikipedia? is a registered trademark of the
    Wikimedia Foundation, Inc., a non-profit organization.

  * Privacy policy
  * About Wikipedia
  * Disclaimers
  * Contact Wikipedia
  * Mobile view
  * Developers
  * Statistics
  * Cookie statement

  * Wikimedia Foundation
  * Powered by MediaWiki