Black Perl : Perl로 쓴 시

해커뉴스 스레드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로 알려져 있지만 불분명한 것 같다.

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

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
혹, 프로그래밍 코드로 시 써보셨는지? in 블로터

2 thoughts on “Black Perl : Perl로 쓴 시

답글 남기기

아래 항목을 채우거나 오른쪽 아이콘 중 하나를 클릭하여 로그 인 하세요:

WordPress.com 로고

WordPress.com의 계정을 사용하여 댓글을 남깁니다. 로그아웃 / 변경 )

Twitter 사진

Twitter의 계정을 사용하여 댓글을 남깁니다. 로그아웃 / 변경 )

Facebook 사진

Facebook의 계정을 사용하여 댓글을 남깁니다. 로그아웃 / 변경 )

Google+ photo

Google+의 계정을 사용하여 댓글을 남깁니다. 로그아웃 / 변경 )

%s에 연결하는 중