Черный перл - Black Perl

Не путать с Черная жемчужина.

"Черный перл" это кодовое стихотворение написано с использованием Perl язык программирования. Он был анонимно размещен на Usenet 1 апреля 1990 г.,[1] и популярен среди программистов Perl[нужна цитата ] как часть Поэзия Perl. Написанное на Perl 3, стихотворение может быть казнен как программа.

Атрибуция

При размещении в группе новостей comp.lang.perl стихотворение было приписано «человеку, который желает остаться анонимным».[1] Шарон Рауензан (урожденная Хопкинс), еще один поэт Perl, подозревался в том, что он был автором, но с тех пор отрицает это утверждение.[2]

Результат выполнения программы

При выполнении Black Perl завершает работу в первой строке по достижении функции выход. Остальные строки анализируются интерпретатором Perl, но никогда не выполняются. Программа ничего не выводит.

Хотя он не будет разбираться в Perl 5, было опубликовано несколько независимых обновлений Black Perl, чтобы сделать его доступным для анализа в Perl 5.[3][4]

"Черный перл"

ЗАРАНЕЕ: Закрыть дверь, каждый окно & выход; ждать до того как время.    открыто книга заклинаний, изучать, читать (сканировать, Выбрать, рассказать нас);записывать Это, Распечатать в шестнадцатеричный пока каждый часы,    обеспечить регресс это длина, записывать опять таки;    убийство пауки, поп их, нарезать, расколоть, убийство их.        разорвать связь руки, сдвиг, ждать & Слушать (слушание, ждать),Сортировать в стадо (тогда, предупреждать в "козы" & убийство в "овца");    убийство их, свалка угрызения совести, сдвиг мораль,    значения в стороне, каждый один;        умереть овца! умереть к обеспечить регресс в система        ты принимать (отклонять, уважать);следующий шаг,    убийство в следующий жертва, каждый жертва,    ждать, повторить ритуал до того как "все духи довольны";    делать Это ("как они сказали").делать Это(*каждый***должен***принимать участие***в***запрещенный**s*е*Икс*).возвращаться последний жертва; упаковка тело;    выход склеп (время, раз & "половину времени") & Закрыть Это,    Выбрать (быстро) & предупреждать ваш следующий жертва;ПОСЛЕ СЛОВА: рассказать никто.    ждать, ждать до того как время;    ждать до того как следующий год, следующий десятилетие;        спать, спать, умереть себя,        умереть в последний

Смотрите также

Рекомендации

  1. ^ а б Уолл, Ларри; Кристиансен, Том; Орвант, Джон (июль 2000 г.). Программирование на Perl, третье издание. О'Рейли. п. 649. ISBN  0-596-00027-8.
  2. ^ Шэрон Хопкинс (1993-04-16). "Re: Разветвление кучи процессов ..." Группа новостей: comp.lang.perl. Usenet:  [email protected]. Получено 5 декабря, 2014.
  3. ^ jonadab (21 февраля 2003 г.). «Черный Perl обновлен для Perl 5». Получено 2007-09-15.
  4. ^ Овидий (17 октября 2006 г.). "Возвращение к Black Perl". Получено 2007-09-15.