블랙 펄
Black Perl"Black Perl"은 Perl 프로그래밍 언어를 사용하여 작성된 코드 시입니다.1990년 [1]4월 1일 Usenet에 익명으로 게시되었으며 Perl 프로그래머들[citation needed] 사이에서 Perl 시의 한 조각으로 인기가 있다.Perl 3으로 작성된 이 시는 프로그램으로 실행될 수 있습니다.
귀속
에 투고된 경우comp.lang.perl
뉴스 그룹 "익명으로 [1]남기를 원하는 사람"이 그 시를 만들었다.펄의 또 다른 시인 샤론 라웬잔(성 홉킨스)은 저자로 의심받고 있지만 이후 [2]이 주장을 부인하고 있다.
프로그램 실행 결과
실행 시 Black Perl은 함수 종료에 도달하면 라인 1에서 종료됩니다.나머지 행은 Perl 인터프리터에 의해 해석되지만 실제로는 실행되지 않습니다.프로그램이 출력되지 않는다.
Perl 5에서는 해석되지 않지만 Perl 5에서 해석할 수 있도록 Black Perl에 대한 여러 가지 독립된 업데이트가 [3][4]공개되었습니다.
"블랙 펄"
사전에: 가까운. 문, 각각 윈도 & 퇴장; 잠깐만요. 까지 시간을. 열다. 철자책, 공부하다, 읽어주세요 (스캔, 선택한다., 말하다 우리 쪽); 쓰다 그것, 인쇄물 그 16진수 하는 동안에 각각 시계들, 거꾸로 하다 그것의. 길이, 쓰다 다시.; 죽여라 거미, 팝 그들., 잘라 내다, 분열되다, 죽여라 그들.. 링크를 해제하다 무기, 교대하다, 잠깐만요. & 들어봐 (들으면서, 잠깐만요.), 종류 그 떼 (그리고나서, 경고하다 그 "실패" & 죽여라 그 "실패"); 죽여라 그들., 버리다 거리낌, 교대하다 도덕성, 가치 따로, 각각 하나.; 죽어버려 양! 죽어버려 로. 거꾸로 하다 그 시스템. 너 받아들이다 (거절하다, 존중하다); 다음 분. 걸음, 죽여라 그 다음 분. 희생, 각각 희생, 잠깐만요., 다시 하다 의식 까지 "모든 영혼들이 기뻐하고 있다"; 하다 그것 ('말대로'). 하다 그것(*모두들***해야한다***참여한다.***에***금지된**s*e*x*). 돌아가다 지난 피해자.; 패키지 몸; 퇴장 지하실 (시간을, 시대 & "반 시간") & 가까운. 그것, 선택한다. (얼른.) & 경고하다 당신의. 다음 분. 피해자.; 뒷말: 말하다 아무도.. 잠깐만요., 잠깐만요. 까지 시간을; 잠깐만요. 까지 다음 분. 연도, 다음 분. 10년; 수면., 수면., 죽어버려 네 자신, 죽어버려 에 지난
「 」를 참조해 주세요.
레퍼런스
- ^ a b Wall, Larry; Christiansen, Tom; Orwant, Jon (July 2000). Programming Perl, Third Edition. O'Reilly. p. 649. ISBN 0-596-00027-8.
- ^ 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.
- ^ jonadab (2003-02-21). "Black Perl updated for Perl 5". Retrieved 2007-09-15.
- ^ Ovid (2006-10-17). "Black Perl Revisited". Retrieved 2007-09-15.