Perl празднует свой 20-ый день рождения!

Дорогуша, судя по вашим высказываниям, вы ещё под себя ходили, когда Столлман GNU начал... animechaos (*) (18.12.2007 16:37:53)

Я даж думаю что до сиx пор xодит. Из за псиxичeckoй травмы в дeтствe.

и вообще бред он какой-то несет, если мягко сказать.

spider

Долгой жизни perl. Ларри респект

да, вспомнилось по поводу краткости языка... может кто читал вавилон-17 С.Диллени? там вспоминался язык, с помощью которого какая-то расса смогла на своем языке описАть девайс с помощью семи (???, или девяти?) коротких слов, по которых на их далекой планете инженеры смогли воссоздать абсолютно точную копию девайса, никогда его прежде не видев (оригинальное описание техпроцесса по созданию девайса на "человеческом" языке занимало несколько тысяч страниц, с чертежами). вот перл мне чем-то напоминает этот язык =) и я почти уверен, что он никогда не будет забыт, т.к. людям, им владеющим, дает возможность выражать свои мысли и желания в максимально короткой и, не побоюсь этого слова, УДОБНОЙ форме ;)

зы: да, я уже отмечаю =)

Perl -- это разминка для ума даже на уровне синтаксиса. Поэтому его ничто не заменит. Думаю, что на шестом перле для дела не напишу ни строки, но ради удовольствия и умственного развития язык надо будет освоить. Впрочем, одноразовый код на нем должен вообще отлично получаться.

Он умер таким молодым.

> там вспоминался язык, с помощью которого какая-то расса смогла на своем языке описАть девайс с помощью семи (???, или девяти?) коротких слов

я всегда подозревал, что Перл - это язык инопланетян :D

> зы: да, я уже отмечаю =)

Заметно. Выпей там за здоровье Райдры Вонг :)

> как там у класиков...
> большинство программ на перле следуют такому стилю форматирования: набирается первые 60-80 символов кода, жмется энтер...
> тады да, мыслей помешается больше)

нет, после каждой точки с запятой перевод строки. Bмещаемость логики per cтрока в перле выше.

> Ruby тебе тогда понравится ещё больше. Это прямой наследник Перла в этом смысле. Там можно писать ещё более сжато :)

Спаcибо, приму к сведенью, если когда-нибудь будет ресурс на изучение...

> Выпей там за здоровье Райдры Вонг :)

выпил. кстати, а кто это? о.О а то по запросу в картинках гугль мне выдал не хилую коллекцию аниме, но это скорее из-за прославленной гугловской системы учёта предыдущих поисков... кстати, спасиба за свежие аниме-картинки ^_^

>> Выпей там за здоровье Райдры Вонг :)

> выпил. кстати, а кто это? о.О

Главная героиня "Вавилон-17" ;)

Единственное чего не хватает в перл - компиляции в бинарник или около того.

> Главная героиня "Вавилон-17" ;)

**пт, а ведь точно её так звали!!! =) самюеля читал лет пять назад %) красиво пишет, хотя ощущение "что курил аффтар и как он от этого не скончался" не покидает вплоть до прочтения последней строчки... и нескольких лет после ;)

> Единственное чего не хватает в перл - компиляции в бинарник или около того.

man perlcc

за компиляцию не сойдёт, но за "около того" -- запросто! ;)

> какая-то расса смогла на своем языке описАть девайс с помощью семи (???, или девяти?) коротких слов, по которых на их далекой планете инженеры смогли воссоздать абсолютно точную копию девайса, никогда его прежде не видев (оригинальное описание техпроцесса по созданию девайса на "человеческом" языке занимало несколько тысяч страниц, с чертежами)

И как это согласуется с теорией информации? :)

> man perlcc
> за компиляцию не сойдёт, но за "около того" -- запросто! ;)

из man:
The code generated in this way is not guaranteed to work. The whole codegen suite ("perlcc" included) should be considered very experimental. Use for production purposes is strongly discouraged.

Я когда-то что-то пробовал скомпилять, оно не заработало.

Сейчас ничего не компилило пока не приложил патч: https://bugzilla.redhat.com/show_bug.cgi?id=199736

-- ./lib/B/C.pm 2006-01-13 09:47:39.000000000 -0500
+++ /usr/lib/perl5/5.8.8/i386-linux-thread-multi/B/C.pm 2006-07-21
20:25:39.000000000 -0400
@@ -650 +650 @@
- $xpvnvsect->add(sprintf("0, 0, 0, %d, %s", $sv->IVX, $val));
+ $xpvnvsect->add(sprintf("0, 0, 0, %d, %s", $sv->NVX, $val));
---

скомпилялось, но вместо работы ушло в паник.
panic: invalid pad in pad_sv: 0x80db318[0x8122250] at index.idx line 6

>Я даже не буду говорить, что кол-во рабочих мест для перл-программистов в десятки раз превосходит аналогичное для питона и раби

Правильно. Потому что количество рабочих мест для PHP-программистов больше, чем для Перла :)

>да, вспомнилось по поводу краткости языка... может кто читал вавилон-17 С.Диллени? там вспоминался язык, с помощью которого какая-то расса смогла на своем языке описАть девайс с помощью семи (???, или девяти?) коротких слов, по которых на их далекой планете инженеры смогли воссоздать абсолютно точную копию девайса

http://ru.wikipedia.org/wiki/Ифкуиль

> http://ru.wikipedia.org/wiki/Ифкуиль

У вас опечатки в слове "Нефкурил".

А я так думаю, что перловка должна умереть. Всё, что пишется на перле - лучше делать либо на баше, либо на питоне. Чем меньше в мире перлового кода - тем меньше зла.

Аминь.

[бросает горсть земли на могилу]

Зато теперь, когда все остальные языки программирования перешли на регулярные выражения Perl 5, Ларри полностью поменял их синтаксис в Perl 6. Ну, надо же кому-то прогрессом управлять, а кому-то догонять. :)

>Perl -- это разминка для ума даже на уровне синтаксиса. Поэтому его >ничто не заменит. Думаю, что на шестом перле для дела не напишу ни >строки, но ради удовольствия и умственного развития язык надо будет >освоить. Впрочем, одноразовый код на нем должен вообще отлично >получаться.

+1 ps. С Днём Рождения!!! чувак Perl

> а почему такая большая?

> perl -e '@_=("0".."9","A".."Z","a".."z",split"","_#\@!\$%^&*()-+=|?<>,.");srand(time^$$ );print@_[map{rand(@_)}1..16],"\n"'

Так у тебя тоже далеко не минимальная. :) Вызов srand вовсе не нужен, он и так вызывается при первом rand (подробности в "perldoc -f srand"). Да и некоторые скобки и кавычки можно сделать более читабельными. В общей сложности три десятка символов можно съекономить при увеличенной читаемости. Хотя всё же надо пробелы проставлять, а то это не дело, когда в программе ни единого пробела нет. :)

perl -le '@_=0..9,"A".."Z","a".."z",split//,q{_#@!$%^&*()-+=|?<>,.};print@_[map{rand@_}1 ..16]'

"Snow falling on Perl code.
White noise covering line noise" (c)

Рожденный ползать — летать не может!..

Не понять питонистам, что Перл это свобода плюс оптимальность. :)

> Чем меньше в мире перлового кода - тем меньше зла.

Зло это когда человек, не зная языка. злобно злорадствует над ним. А Перл это добро.

> Рожденный ползать — летать не может!..

Точно. Еще добавлю - горбатого могила исправит.

>4.2 - Читать чужой код всегда сложнее.
>Что не понятно в этой маленькой утилите?
>#!/usr/bin/perl -w
>
>#init alphabet
>@ABC = (
>		'0'..'9', 
>		'A'..'Z',
>		'a'..'z',
>		'_','#','@','!','$','%','^','&',
>		'*','(',')','-','+','=','|','?',
>		'<','>',',','.'
>	);
>
>#init random function
>srand(time ^ $$);
> ... И так далее
Очень плохой способ генерировать пароли, не вздумайте применять
в жизни :) надо использовать /dev/random, даже из головы придуманный
и то лучше

> Рожденный ползать — летать не может!..

Если уж о животных заговорили, то в отличии от ползучих, Перл не только бегать, но и летать сможет. Perl 5.12 (не говоря уже о Perl 6) возможно над Парротом будет. Ух, полетаем. :-)

Помните тот флейм из 2003 на ~500 комментов. Кажется он здесь уже упоминался: http://www.linux.org.ru/view-message.jsp?msgid=392747. Там был "rm -rf /" закодированный в виде одной строчки на Perl. (Кто не видел не запускать ни в коем случае) Я долго долго думал. Целых 3 года. И наконец понял кто же был главным злодеем в этой истории. Это же Perl, вместе с его создателем Larry Wall`ом. Он же наверняка знал на какие опасные вещи способно его творение, и все-таки создал его :)

> Perl 5.12 (не говоря уже о Perl 6) возможно над Парротом будет. Ух, полетаем. :-)

Детишки, очнитесь. Ввод промежуточной виртуальной машины работу только замедлит.

> Зло это когда человек, не зная языка. злобно злорадствует над ним.

Чтобы "знать" перл, надо его выучить. Нафиг в это говно вляпываться?

Дятел какая промежуточная виртуальная машина? байт код даже в твоем сраном пистоне есть. И все примерно одинаково выглядит.

>Если уж о животных заговорили, то в отличии от ползучих,
>Перл не только бегать, но и летать сможет. Perl 5.12
>(не говоря уже о Perl 6) возможно над Парротом будет.
>Ух, полетаем. :-)

А - ну да, как же :)

- IT?!?!?!?!? Какого Х?!?!?!
- Да у нас тут эта ... сервера ... полетееееели

>> perl -e '@_=("0".."9","A".."Z","a".."z",split"","_#\@!\$%^&*()-+=|?<>,.");srand(time^$$ );print@_[map{rand(@_)}1..16],"\n"'

> perl -le '@_=0..9,"A".."Z","a".."z",split//,q{_#@!$%^&*()-+=|?<>,.};print@_[map{rand@_}1 ..16]'

по поводу скобок: надеюсь, вы всё же пробовали запускать свой код, и должны были заметить, что в генерируемой строке _нет_ альфанумерики ;) скобки всё же придется оставить:

perl -le '@_=(0..9,"A".."Z","a".."z",split//,q{_#@!$%^&*()-+=|?<>,.});print@_[map{rand@_ }1 ..16]'

а вот опция -l и числовой диапазон без кавычек -- это да, это хорошо =)

Тото он в Gentoo по последним портежам вообще не собирается

Да здравствует Perl!!!

Это совершенно замечательный язык программирования, где многие продуктивные идеи были впервые проверены на практике, а затем перекочевали в другие языки программирования (Python, PHP, Ruby, ...). Так что детей и внуков Perl тоже с днём рождения!

А кроме того, под влиянием такого уникального и необычного языка, как Perl, изменилось всё сообщество программистов и их культура в плане учёта психологии Программиста и культивирования Мастерства в нашей професии. Это длительное и благотворное влияние, учитывая даже недостатки самого языка, которые вскоре будут преодолены в Perl6.

>perl -le '@_=(0..9,"A".."Z","a".."z",split//,q{_#@!$%^&*()-+=|?<>,.});print@_[map{rand@_ }1 ..16]'

perl -le '@_=map{chr}(48..122);print@_[map {rand@_ }1 ..16]'

Long Live Perl

>Чтобы "знать" перл, надо его выучить.

А раз ты ни асилил, иди газифицировать лужи в более другой топег

> замечательный язык программирования, где многие продуктивные идеи были впервые проверены на практике

А можно Топ5 этих идей?

> А раз ты ни асилил,

Чтобы "асилить", нужно захотеть. А зачем? Мне он не нужен - есть куда более удобные и эффективные средства. Чужой код на нём тоже поддерживать не приходится - вот не попадается мне перловых приложений совсем, видать не пишет их никто...

А вот общее представление о языке у меня достаточно хорошее, чтобы составить определённое мнение.

> иди газифицировать лужи в более другой топег

Это топик про перл. Я тут всем любителям перла напоминаю, что он говно. По-моему, всё совершенно правильно.

> perl -le '@_=map{chr}(48..122);print@_[map {rand@_ }1 ..16]'

perl -e 'print chr 48 + rand 74 for 1..16'; echo

perl -le 'print map{chr 48+rand 74}1..16'

кто предложит меньше? ;)

Я дошёл до такого же решения, но опоздал на 10 минут, посему стер как дубль. :) Только коды символов лучше от 32 до 126 гонять.

Модераторы выкиньте его нафиг из этого топика. Троль просто невменяем.

>кто предложит меньше? ;)

С произвольным количеством символов, только генератор случайных символов небезопасный и сильно проигрывающий по быстродействию :))) -

perl -e "print ($pwd=<>);"

> perl -e "print ($pwd=<>);"

perl -ne "print;exit"

или

head -n 1

^_^

> Модераторы выкиньте его нафиг из этого топика. Троль просто невменяем.

Моя правда режет ваши красные глаза.

> Я тут всем любителям перла напоминаю, что он говно.

извините, но с вами разговаривать о перле -- то же, что разговаривать с геем о женщинах... и общее представление вроде есть, вот только не хочется, не нада, не приходится...

>Моя правда режет ваши красные глаза.

Тролль, выколи себе глаза и правда, о том что perl - великолепный инструмент, не будет тебе их резать.

> perl - великолепный инструмент,

Для чего? Для обфускации кода?