Черный Перл
«Black Perl» — это кодовое стихотворение , написанное с использованием Perl языка программирования . Оно было анонимно опубликовано в Usenet 1 апреля 1990 г. [1] и популярен среди программистов Perl [ нужна ссылка ] как произведение поэзии Perl . Написанное на Perl 3, стихотворение может быть выполнено как программа.
«Черный жемчуг» обсуждался в нескольких научных работах. [2] [3] [4] и считается примером генеративной литературы , жанра электронной литературы .
Атрибуция
[ редактировать ]При публикации в comp.lang.perl группа новостей, стихотворение было приписано «человеку, пожелавшему остаться анонимным». [1] Шэрон Рауэнзан ( урожденная Хопкинс), еще одна поэтесса Perl, подозревалась в том, что она является автором, но с тех пор опровергла это утверждение. [5]
Результат выполнения программы
[ редактировать ]При выполнении «Black Perl» завершает работу на первой строке по достижении функции exit . Остальные строки анализируются интерпретатором Perl, но фактически никогда не выполняются. Программа не выдает никаких результатов.
Хотя он не будет анализироваться в Perl 5 , было опубликовано несколько независимых обновлений «Black Perl», делающих его пригодным для анализа в Perl 5. [6] [7]
«Черный жемчуг»
[ редактировать ]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
См. также
[ редактировать ]Ссылки
[ редактировать ]- ^ Перейти обратно: а б Уолл, Ларри; Кристиансен, Том; Орвант, Джон (июль 2000 г.). Программирование на Perl, третье издание . О'Рейли. п. 649. ИСБН 0-596-00027-8 .
- ^ Сегура, Синтия Энн (2004). Перлы мудрости: Компьютерный язык и поэзия Perl (Диссертация). ПроКвест 305162869 . [ нужна страница ]
- ^ Керр, Крис; Холден, Дэниел (2023). «Оптимизация кода для повышения производительности: чтение ./code --poetry». В Корецке Магдалена Элизабет; Лифер, Вибке (ред.). Поэзия и современная визуальная культура: = Поэзия и современная визуальная культура . Поэзия в эпоху цифровых технологий. Берлин: Де Грюйтер. п. 172. ИСБН 978-3-11-129933-4 .
- ^ Томасула, Стив (30 декабря 2014 г.). «Наши инструменты делают нас (и нашу литературу) Сообщение: эссе под редакцией Жана-Ива Пеллегрена (Университет Париж-Сорбонна)» . Трансатлантика (2). дои : 10.4000/transatlantica.7102 .
- ^ Шэрон Хопкинс (16 апреля 1993 г.). «Re: Формирование нескольких процессов...» Группа новостей : comp.lang.perl . Usenet: [электронная почта защищена] . Проверено 5 декабря 2014 г.
- ^ Джонадаб (21 февраля 2003 г.). «Черный Perl обновлен для Perl 5» . Проверено 15 сентября 2007 г.
- ^ Овидий (17 октября 2006 г.). «Возвращение к черному перлу» . Проверено 15 сентября 2007 г.