https://www.opennet.ru/openforum/vsluhforumID3/115814.html Подготовлен (https://rakudo.org/post/announce-rakudo-star-release-2018-10) релиз пакета Rakudo Star 2018.10 (http://rakudo.org/), включающего компилятор Rakudo, виртуальную машину MoarVM, документацию, модули и инструменты, необходимые для разработки на языке Perl 6. Компилятор соответствует спецификации Perl v6.c, за исключением поддержки расширенных макросов, неблокирующего ввода/вывода и ряда мелких особенностей, которые планируется довести до рабочего состояния в будущих выпусках. В качестве виртуальной машины для исполнения байткода предлагается MoarVM (http://moarvm.org/), которая проходит все тесты (альтернативный бэкенд на базе JVM пока не обладает всей необходимой функциональностью). <br><br><br><br>В новой версии обновлены модули openssl 0.1.21 и tap-harness6 0.0.4. До версии 0.5.3 обновлён инструментарий для управления установкой модулей zef 0.5.3. Объявлен устаревшим модуль "LWP::Simple" вместо которого рекомендовано использовать "HTTP::UserAgent". Удалён модуль panda-sub, вместо которого сейчас прим https://www.opennet.ru/openforum/vsluhforumID3/115814.html#45 Sat, 17 Nov 2018 09:20:48 GMT На самом деле новичков пугает обилие всяких "закорючек", сам-то язык классический - переменные, массивы, функции, объекты... что тут сложного?? Просто переменные именуются со спец-символов. И строго говоря, это даже хорошо для наглядности.<br> https://www.opennet.ru/openforum/vsluhforumID3/115814.html#44 Thu, 15 Nov 2018 10:17:04 GMT Двачую этого. Подобные вещи часть культуры языка:<br> Joke Modules<br> Mailing List Theatre<br> JAPHs<br> Obfus<br> Golf<br> Poetry<br> April Fools<br><br>Почитайте "The Lighter Side of Perl Culture (Part I): Introduction" на перлмонкс. Интересно<br> https://www.opennet.ru/openforum/vsluhforumID3/115814.html#43 Thu, 15 Nov 2018 01:38:31 GMT Перловам работу предлагают. Растишкам ... :)<br> https://www.opennet.ru/openforum/vsluhforumID3/115814.html#42 Wed, 14 Nov 2018 22:11:33 GMT Ну&#8230; Понятно, что хакеры Перла в обыденной жизни пишут не [только] программы для рисования верблюдов. :) Это просто иллюстрация возможностей языка и особенностей его синтаксиса.<br> https://www.opennet.ru/openforum/vsluhforumID3/115814.html#41 Wed, 14 Nov 2018 21:17:42 GMT Красиво!<br><br>Но при этом есть понимание, что вкурить это как следует с легкомысленным подходом не получится.<br>Реальное мастерство оттачивается на реальных задачах.<br><br>С возрастом мышление становится весьма утилитарным - зачем делать на этом, когда можно на другом ,знакомом, в 3 раза быстрее.<br><br>Поэтому - о да, верблюд крут, но проходим мимо. Увы.<br> https://www.opennet.ru/openforum/vsluhforumID3/115814.html#40 Wed, 14 Nov 2018 18:15:41 GMT &gt; Это либо дано, это не дано.<br><br>Небыстрофикс: либо дано, либо не дано.<br><br><br>А вот интересно, как бы любители пихтона писали такую программку с верблюдами. :)<br> https://www.opennet.ru/openforum/vsluhforumID3/115814.html#39 Wed, 14 Nov 2018 17:44:22 GMT &gt; что уважающий себя перл-программист никогда, ни за что не станет писать на питоне.<br><br>+1<br><br>контекст, определяемый количеством пробелов и табуляций... <br>при этом некоторые пытаются затащить эту хрень в soc.<br> https://www.opennet.ru/openforum/vsluhforumID3/115814.html#38 Wed, 14 Nov 2018 17:36:36 GMT &gt;Go похож по синтаксису на Perl5.<br><br>Че? Блин, аж котлетой поперхнулся.<br><br>Обпределение класса в perl5: <br><br>package A;<br><br>use strict;<br>use warnings;<br><br>sub new {<br> my ($class, $name) = @_;<br> my $self = {<br> name =&gt; $name<br> };<br> bless $self, $class;<br> return $self;<br>}<br><br>sub name {<br> my ($self, $name) = @_;<br> return $self-&gt;{'name'} unless $name;<br> $self-&gt;{'name'} = $name;<br> $self;<br>}<br><br>1;<br><br>Вся похожесть в латинским алфавите.<br> https://www.opennet.ru/openforum/vsluhforumID3/115814.html#37 Wed, 14 Nov 2018 14:41:07 GMT Это либо дано, это не дано. Если ты видишь красоту в таком классическом примере, то ты полюбишь Perl:<br><br>[CODE]<br>$_='ev<br> al("seek\040D<br> ATA,0, 0;");foreach(1..3)<br> {&lt;DATA&gt;;}my @camel1hump;my$camel;<br> my$Camel ;while( &lt;DATA&gt;){$_=sprintf("%-6<br>9s",$_);my@dromedary 1=split(//);if(defined($<br>_=&lt;DATA&gt;)){@camel1hum p=split(//);}while(@dromeda<br> ry1){my$camel1hump=0 ;my$CAMEL=3;if(defined($_=shif<br> t(@dromedary1 ))&&/\S/){$camel1hump+=1&lt;&lt;$CAMEL;}<br> $CAMEL--;if(d efined($_=shift(@dromedary1))&&/\S/){<br> $camel1hump+=1 &lt;&lt;$CAMEL;}$CAMEL--;if(defined($_=shift(<br> @camel1hump))&&/\S/){$camel1hump+=1&lt;&lt;$CAMEL;}$CAMEL--;if(<br> defined($_=shift(@camel1hump))&&/\S/){$camel1hump+=1&lt;&lt;$CAME<br> L;;}$camel.=(split(//,"\040..m`{/J\047\134}L^7FX"))[$camel1h<br> ump];}$camel.="\n";}@camel1hump=split(/\n/,$camel);foreach(@<br> camel1hump){chomp;$Camel=$_;y/LJF7\173\175`\047/\0