Black Perl : Perl로 쓴 시

해커뉴스[1]에 Black Perl이라는 시가 소개되어 있다. 전문을 올려본다.

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
# Larry Wall

이 시는 위키피디아에 따르면 1990년 4월 1일에 유즈넷에 올라왔다고 하는데, perl 3로 파싱이 가능하다고 한다. perl 5로는 에러가 나는 듯. perl 5로 파싱 가능한 다양한 변형판이 있다고 한다.

시의 저자는 perl을 만든 Larry Wall로 알려져 있지만 불분명한 것 같다.

해커뉴스[1]에는 어떤 이가 파이썬으로 쓴 시도 소개하고 있다.

import calendar as usual
StandardError is usual \
or not usual. month is long
    
try: not coerce
finally: quit
    
(help for me in range
(usual. MONDAY))

근데 파이썬은 전혀 몰라서… -_- 본인은 펄5만 써봤는데 뭔가 많이 다른 듯.

 


2014.6.10
혹, 프로그래밍 코드로 시 써보셨는지? (bloter.net)

.


[1] Black Perl (wikipedia.org)

2 thoughts on “Black Perl : Perl로 쓴 시

댓글이 닫혀있습니다.