Добро пожаловать всем, кто использует в своей работе или творчестве язык программирования perl! :)

Нас уже довольно много :) Пора написать что-нибудь существенное ;) Начнем с бесполезной, но очень красивой программы:

not exp log srand xor s qq qx xor
s x x length uc ord and print chr
ord for qw q join use sub tied qx
xor eval xor print qq q q xor int
eval lc q m cos and print chr ord
for qw y abs ne open tied hex exp
ref y m xor scalar srand print qq
q q xor int eval lc qq y sqrt cos
and print chr ord for qw x printf
each return local x y or print qq
s s and eval q s undef or oct xor
time xor ref print chr int ord lc
foreach qw y hex alarm chdir kill
exec return y s gt sin sort split

Эта программа выдает "just another perl hacker". Понять бы, почему...

Потому что она так написана ;)

Вообще, JAPH (just another perl hacker) - это популярное развлечение среди perl-программистов. На западе даже проводятся конкурсы - кто напишет наиболее запутанную программу, выводящую на экран эту строчку.

Разбираться, как работают эти программы (вооружившись справкой по перлу) весьма интересно и познавательно. Вот еще один (довольно простой) пример:

$_="krJhruaesrltre c a cnP,ohet";$_.=$1,print$2while s/(..)(.)//;

Ну, вторая прога проще - кто-то решает задачу Иосифа с шагом три. Предыдущая тоже не особо сложна - надо только обратить внимание на постоянное использование qw...

Совсем недавно открылась группа по интересам "Программист". Предполагается обсуждение общих вопросов программирования и проектирования. Присоединяйтесь! Нас уже 30+
groups.php?act=s&gid=912

2 Администрация: если не трудно, добавьте группу в список групп-друзей. И нам, и вам будет лучше :)

Почему, как о Перле, так сразу о всяких хитровывернутых извращениях?

Ну.. Ларри Волл имел несчастие допустить в языке рекордное кол-во антипаттернов.
Нужно было познакомить его с законами Мерфи.

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

Но в своих проектах я бы такое никогда не допустил, ибо через месяц понять такое нереально.
Имхо хороший код читается как книга на английском.

А понятия красоты у нас видимо разные.. Я вот радуюсь, когда архитектура у проекта красивая, когда удалось совместить абсолютно разные проекты в единую систему.. :)

brainfuck, oh yeah, dast ich fantastisch!

У меня красота - это когда, что в голове, то и в коде. Как сказал один умный чел - программы пишут чтобы их читали люди и, иногда, выполняли машины.

Администрация давно не заглядывала в группу :) Кстати, кто хочет присоединиться к руководству?

Михаил, "Программиста" в друзья включил.

Олег, да, perl допускает много "извращений". За это его обычно и любят, хотя не все признаются ;) Естественно, в production коде такие "красоты", мягко говоря, нежелательны. Но некоторые приемы perl позволяют коротко, ясно и красиво записать то, что в другом языке заняло бы дюжину строк.

Согласен. Удивляет, что "вне офиса" обсуждают, в основном, извращения :)

Это-ли извращения;) вот выбрасывание в перл исключений из C+ - это да;)

А я как-то писал cpp-мост из Java в JavaScript. Вот там эксепшены - это да! А также колбэки-листенеры и эвристическое преобразование типов. Кто переплюнет? :)

Для создания нового Web 2.0 проекта требуется компетентная и слаженная команда web разработчиков. Инвесторы планируют вывести проект на лидирующие позиции в своем сегменте в течение 6-12 месяцев после запуска и готовы вкладывать значительные ресурсы в разработку и маркетинг. Для ключевых людей предусмотрена регулярная компенсация, а так же бонусы по системе profit sharing.

Если вас заинтересовало данное предложение, обращайтесь.

print 'Hello';
print "Hello";
print('Hello');
print("Hello");
printf('%s',"Hello");
printf('%s','Hello');

timtowtdi =)

Далеко не самый замечательный пример timtowtdi.

Олег Андреев А чем он Вас не устроил?

TIMTOWTDI состоит не в наличии двойных и одинарных кавычек, а в дизайне программы.

А между видами кавычек есть важная разница, поэтому это уж точно не TIMTOWTDI.

Олег Андреев Посмею с вами не согласится! В данном именно этом примере никакой разницы испульзуемых ковычек нет!

Дизайн программы? Это что за зверь?

В перле тоже двойные кавычки это не просто строки, а с подстановками?

Дизайн программы.. у.. это в двух словах не опишешь.
Гради Буч "Объектно-ориентированный анализ и проектирование с примерами на С+ " дает описание, временами нудновато, но ничего так.

Дизайн программы это ее архитектура. Это ее декомпозиция на некоторые части (модули, процедуры, классы и т.д.)
Причем от дизайна программы очень многое зависит. Гибкость - легко ли внести какие-то изменения в программу или нет, сложность - я недавно выбирал библиотечку для работы с IRC под Java: в одной из них было 9 классов, в другой около 40 (видимо человек начитался книжек по паттернам проектирования и засунул их куда нужно и куда не нужно). А по возможностям примерно равны. Разумеется я выбрал первую.

Если ты программер, то Буча рекомендую почитать обязательно. И не один раз.

Короче говоря:
Programs must be written for people to read, and only incidentally for machines to execute. (Abelson and Sussman)

народ, вы в этом должны шарить:
хостер предоставляет бесплатные скрипты, которые можно интегрировать в страничку .shtml через <!--#exec cmd="cgi-bin/***.cgi"-->
так вот, удается их выполнять только на главной страничке, которая в корне(соответственно cgi-bin тоже в корне), а на других не пашет, т.к. они по разнынм папкам. если в адресе прописать <!--#exec cmd="http://домен/cgi-bin/***.cgi"-->, то тоже не дает эффекта
возможно потому, что у у cg-bin не те права стоят?
главная здесь: http://polovenko.info - сайт еще не закончен)))
отвыте на email или в личку, пожалуйста

Да Здравствует Ламо! Перл+
сттранно что тогда cgi-bin без всего работает... попробую поюзать "/" или ".."

2Константин Половенко:
в SSI: exec cmd - выполнение unix shell команд.
exec cgi - выполнение CGI скриптов.
В принцыпе обычно разницы нет. Про нюансы рассказывать лень.
Проверь правильные ли расширения у cgi файлов(обычно pl, php) и аттрибуты скриптов. Лучший совет обратись к хостеру за подробной инфой о твоём хостинге=).
Госпади, куда я попал!=) Аминь.

Ещё одна программа just another perl hacker:

$\='`'|"'";$\+ ;$;='/'|'`';$; ;$; ;$; ;$,=$;;$, ;$/=$,;$/ ;
$:=$/;$: ;$_='%'|'`';$_.='`'|'#';$_.=$\;$_.='`'|'/';$_.= $".'"';
$_.='@'|'*'&~'!';$_.="$:$,$/".$";$_.='`'|'!';$_ .='`'|'.';$_.='/'|'`';
$_.=$/.$\;$_.='%'|'`';$_.=$;.$";$_.='@'|':'

Блин... Откусило предыдущее сообщение примерно на половине... Дурной сайт.
А, ладно, хрен с ним.

Действительно, хрен с ним.. все равно не perl-golf (<=80 символов), да и никто не понял :)
Когда же выйдет спаситель как минимум нашей планеты, а то и всей Вселенной? (perl 6)

Зато красиво - ни единого буквенного или цифрового символа. 8)

какой это всё таки прекрасный язык!!!!

Ну что, товарищи перловики, наше сообщество мертво? 8)

Ну вот нубский вопросик, почему этот скрипт занимает до 15% проца и около 80метров в памяти? подозреваю что, где-то утечка, хотя хз http://paste.org.ru/?mt001a

все решил пролемку уменьшением стека www::mechanize.
PS народ может расскажите про известные вам грабли? особенно интересуют про утечку памяти.
От себя могу добавить. Грабля про прокси https при запросах через lwp или www::mechanize решается путем объявление глобальной переменной $ENV{HTTPS_PROXY} = $Proxy;.
Грабля про утечку памяти сборщик мусора не очищает память пока сохранилась хотя бы одна ссылка, посему если не обнулять ссылки, при уничтожении(выход за ОВ) переменных, то они все равно будут указывать на значения этих переменных и соответсвенно память не очистится. =)

Ути какой бот-клаб:DDD

Бугага... какой же это бот-клаб... покажите мне хоть одного с красным дипломом? =)
Имхо просто любители прекрасного...

Истинные боты не напрягаются по поводу получения красного диплома - они и без него всё знают 8)

угу, красный диплом есть всего лишь показатель не умения расслабиться(ИМХО)

какой нафиг красный диплом? я вообще вчера экзамен завалил )) из-за того, что лень лекции открывать было

а есть девушки программисты на перле? :)

Вообще группа мёртвая какая-то 8)

> а есть девушки программисты на перле? :)
нет, это фантастика.

Хм-м.
У групы появился-таки клон: club176179

По поводу групп-дубликатов. Perl-программисты, нас и так не много в этом мире - давайте не дробиться, а объединяться!

Ну, я им написал, что, мол, не надо клонироваться, раз уже есть группа - но они предпочли удалить моё сообщение и проигнорировать меня 8)

Я с вами

>> а есть девушки программисты на перле? :)
>нет, это фантастика.

я верю что есть…

Пишу CMSку на Perl'е. Собственно, на ней же делаю всем клиентам своим сайты. CMSка взрослая, но чтобы ее сделать по-настоящему серъезной, нужны свежие программерские силы :) Вот последний сайт на ней - http://www.hotel-express.ru... Хочу зарелизить под GPL. Кто хочет, вписывайтесь. Я зарегил аккаунт на sourceforge...

Михаил, а где же ссылка на проект на sourceforge или хотя бы демку CMS? А то сайтик какой-то порекламировал, а по сути - ни слова ;)

Я пока не делал public релиза, ссылка - taracot.sf.net.
Исходники могу отправить текущей версии, или выложить где-нить...

Извините, что так поздно пишу... В общем, я знаю одну программистку на Perl :))))). Да, да, она существует и совершенно живой и настоящий человек - это не легенда и не фикция :)!!! (Увы, в контакте её нет :(( )

Ну так пригласи её сюда - устроим группу для поклонения ей 8)

Иван Ботов, очердь занимай =)

Нифига, я первый на очереди - это ты занимай 8)

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

вакансия для программистов на perl (С++, Python) в санкт-петербурге!
крупная западная Ит компания, новый центр разработок.
нужен опыт разработки на Perl, C++, Python
хорошие условия по з/п и соц. льготам.
проекты системного уровня, внуьренняя разработка.
подробнее - пишите на fedorova@avantajob.ru www.avantapersonnel.ru

Ну вот и рекрутинговые агентства проявились :) Неудивительно, специалисты на нашем рынке сейчас в большом дефиците. Честно говоря, я не знаю как лучше реагировать - разрешить объявления о работе или запретить? Участники группы, вы как считаете?

Думаю, лучше запретить.
Если человек ищет работу - то в соответствующих местах.
Тем более, подробности о вакансии пишут крайне редко (по опыту других IT-групп).

вообще сейчас тяжело найти специалистов по перлу, причем не просто тех кто знает, а кто еще и может расти дальше, перл сейчас менее актуален чем раньше, но лучше запретить

Уважаемые программисты, ваши знания сейчас действительно востребованы.
Мне кажеться, нет ничего плохого в том, что в этой профессиональной группе специалисты по Perl и другим технологиям смогут найти интересные для себя вакансии, это убоднее, чем искать их специально на сайтах по поиску работы.
Пожалейте ИТ рекрутеров - им очень нужны хорошие кандидаты, клиенты ждут, и мы предлагаем хорошие вакансии от лидеров рынка.
Если у любого из разработчиков есть вопросы по вакансии - я готова на них подробно ответить. Пожалуйста, пишите в личку.

Сергей Мартынов, я думаю, что ничего плохого в об"явлениях нет, моё мнение, против запрета

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

Кстати весьма за, создать обсуждение, и там писать предложения

хах. парни, никогда не связывайтесь с рекрутинговыми агенствами, уж поверьте моему опыту=)

Артем Парфёнов, расскажи нам о своём опыте лучше. 8)

Согласен с участниками - лучше будем структурировать информацию, чтобы ее легче было воспринимать. Создал специальную тему про поиск работы - все объявления о найме и поиске пишите туда.

Коллеги, предлагаю всем принять участие во всемирном опросе perl-программистов: http://perlsurvey.org/

Кто подскажет, как мне внутри скрипта определить новую get переменную...
т.е.
my $z = new CGI;
уж определены всякие $z->param('action') и т.п.

дальше я хочу внутри скрипта написать $z->param({-name=>'new_var', -value=>'some_val'});
и в следующей строке хочу получить some_val:
print $z->param('new_var')
но нет -- значение не определено

я не пойму, откуда param берет данные? Я пробовал дописывать нужные параметры в хеш %ENV в QUERY_STRING и REQUEST_URI -- результат одинаков, param() на них не смотрит

Антон, ошибка банальная: param не умеет принимать hashref, то есть фигурные скобки тут ни к чему. Вот такой код работает нормально:

my $query = CGI->new('action=test&foo=1');
$query->param( -name => 'new_var', -value => 'some_val' );
print $query->param('new_var');