VPF: Perl

Литература, порог вхождения, подводные камни, самостоятельное изучение

Nab — 2010-03-21T21:19:00-02:00

Ой, девушка я Вам вот что скажу.

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

С книгами сложнее. Здесь идут советы от ребят имеющих как разный уровень опыта программирования под перл, так и имеющих различный темп обучаемости. Хотя большинство и сходиться в предпочтении основной линии обучения от корифеев языка, это не значит что вам весь курс будет интересен и одинаково полезен. Но при этом я Вам рекомендую прочесть все книги от Орейли касающиеся перла и переведенные на русский язык. Не обязательно их понять, но ознакомится нужно. Непонятные моменты можете пропускать, по крайней мере потом будете знать где искать ответ когда столкнетесь с этим нюансом на практике. Дело в том что эти книги хоть кое где и пересекаются, но при этом друг друга великолепно дополняют.

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

Pfailed, упомянул intuit.ru. Рекомендую пройти их курс обучения. Там очень неплохой экзаменационный набор для изучающих. Я там для себя встретил несколько интересных и незнакомых мне вещей. Но не пытайтесь его пройти сразу, может дать ложную уверенность знания языка всего лишь заставив зазубрить несколько положений.

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

Конечно для того чтобы свободно общаться на Перл нужен опыт и постоянная практика. Я к сожалению 2 года за него не брался и сейчас вот тоже многие моменты поднимаю в памяти читая свои же исходники и свои же комментарии к ним. Немного жалею что не всегда был многословен в них

Говорят что исходники перл читать тяжело, да подтверждаю, особенно последних версий, на более ранних версиях языка даже стихи есть  Ссылку думаю кто нибудь подкинет. При этом я встречал модули на CPAN которые читаются ну совсем не как технический документ  А вообще чтобы общаться на языке свободно нужна постоянная практика.

Читаются же зачастую тяжело, потому как сейчас никто не пишет на чистом Перл, а используют модули со CPAN. А если ты не знаком с функциями используемого модуля, то прочесть исходник сходу, по контексту и без perldoc,  можно только понимая все остальное и хоть немного владея предметной областью задач решаемых данным исходником.

Порог вхождения высокий для людей вообще от программирования далеких и программистов знакомых с языками типа php. Люди которые приходят из С или Паскаля, чувствую огромную свободу, как правило ими язык осваивается проще и быстрее. Они понимают насколько на нем просто реализовать те вещи которые им на строгих языках довелось бы реализовывать и отлаживать не один час. При этом людям от php сложнее. Они привыкли решать задачи еще проще, но их фантазия в решениях зачатую также очень проста и прямолинейна :(.

Перл утрачивает немного гибкости по мере использование предопределенного API модулей со CPAN. Как правило семантически гибок сам язык. Но высокоуровневые конструкции, паттерны и алгоритмы такие же как и в других языках. При этом CPAN это наиважнейшая часть языка, глупо и неразумно игнорировать миллионы человеко-часов отлаженного кода. Но когда подтянете основы языка, очень рекомендую для начала покопатся в стандартных модулях Перл. Там Вы найдете красивейшие решения сложных задач, и правильные решения задач повседневных. CPAN не всегда блещет красивым кодом, но позволяет достичь результата намного быстрее.

Так что беритесь, а мы Вам немного поможем  По Вашим постам уже видно что глупых вопросов мы от Вас не дождемся

Логическое "НЕ" для группировки символов, "НЕ" в наборе символов из группировок.

Dziro — 2010-03-20T18:14:00-02:00

Нашёл решение. С помощью опережающей негативной проверки.
Сокращённо выглядит так:

my @tags = ('body', 'ol', 'ul', 'li', 'strong', 'em', 'strike', 'p'); # Разрешённые теги
my $tagsPatt = join('|', @tags);
$htmlText =~ s/<\s*\/*?\s*(?!$tagsPatt)\b.*?>//gim; # Режем теги, не входящие в список разрешённых
print $htmlText;

[perl, jquery] push server

kavkaz — 2010-03-17T09:25:00-02:00

http://habrahabr.ru/blogs/webdev/76144/
http://habrahabr.ru/blogs/hi/69457/
http://www.ape-project.org/

дерзай

Получение размера 10000 файлов - как лучше?, куча дир-ий с 10000 файлов в каждой

ramus — 2010-03-18T14:28:00-02:00

"то распарсивайте результаты системных вызовов типа "du -hS /Some/Dir" "

Спасибо за совет. imho правильнее ls -l /Some/Dir
Однако не ПЕРЕНОСИМО (WINDOWS), да и вызов дочернего процесса все-таки думаю будет дороже

"то начните с пересмотра структуры хранения БД, ибо 10+ тыс.файлов в каждой папке это имхо изъян в проектировании системы."

Полностью с Вами согласен. Однако это банковская система и так УЖЕ сделано. Изменить нельзя. В директориях хранятся какое- то время файлы отчеты по транзакциям по каждому терминалу за каждый день. Мне надо периодически проверять не изменились ли эти файлы (кто знает, поймет - PCIDSS). Хочется гибкости, простоты и переносимости - поэтому я уже написал программу на перле, которая считает MD5 для каждого файла и сохраняет это все в отдельном файле. При следующем запуске читает сохраненное ранее значение и сравнивает с тем что сейчас. Разницу пишет в отдельный протокол. Кстати stat для этих файлов работает очень быстро, поэтому вопрос можно снять. Мое решение переносимо, то есть работает и на виндах и на unix и бесплатно.

Кстати, если кому надо, могу выложить эту прогу сюда, хотя там все банально - я на нее потратил около 2 часов.

Сейчас я смотрю как без установки дополнительных модулей в перл и переносимо (Unix&Windows) в реальном времени отправлять сообщения об этих изменениях на SYSLOG сервер по сети. Модуль UNIX:SYSLOG не понравился тем, что в дистрибутиве виндов (Activestate) он не включен в стандартную поставку. Заморачиваться с отдельной установкой этого модуля на куче виндовых серваков не хочется. Поэтому сижу, читаю спеку по SYSLOG чтобы реализовать самому (в требуемом мне объеме). Пока не сложно, однако нет времени, так как у меня разработка ПО - это больше хобби, чем работа.

Слетает скрипт, Timeout waiting for output from CGI scri

krypt3r — 2010-03-18T20:31:00-02:00

Есть такое понятие, как "сигналы".

Чтение примечания ячейки и ссылки из Excel

apl — 2010-03-18T15:33:00-02:00

Голову сломал... не нашел нигде...

Как с помщью модуля Spreadsheet::ParseExcel получить ссылку ячейки таблицы и ее "примечание"?
С получанием и перекодированием текста проблем нет, а вот тут засада.

Можно ли это сделать с Spreadsheet::ParseExcel? Если нет, то чем бы вы посоветовали?
Все хостинги на *nix-системах.

К последнему элементу $3 левое захватывается, Бажит регулярка, прошу помочь

EvilsInterrupt — 2010-03-17T15:28:00-02:00

Спасибо, скрипт написан! ;)

Проблемы с определением пути к скрипту

comhunt — 2010-03-03T14:40:00-02:00

Проблема была в том что стоял старый перл. Установил последнюю версию - все заработало.

Определение временных характеристик файла

comhunt — 2010-03-16T14:19:00-02:00

Спасибо всем, кто принял участие в обсуждении топика

Изначально цель была минимизировать время работы.

Я изначально предполагал что, что вариант -d $file; будет работать быстрее чем вариант со stat. Но как выяснилось нет. Как я понял и тот и другой вариант основывается на вызове системной функции - своей для каждой операционки.

Чтобы вычислить реальное время надо сделать еще что-то вроде:

my $sekund=$dney*24*3600;
$dirhash[$jc]{'ctime'}=time()-$sekund;

В общем реальной экономии времени не получилось. Я это проверил и с тем и с другим вариантом на большом количестве операций.

Синтаксис действительно симпотичнее (на мой взгляд) - но это не главное.

ps
А обращений к файлам действительно очень много

Компиляция проекта

lorents — 2010-03-15T22:16:00-02:00

djamshud, понятно, спасибо за ответ

Помогите добавить функцию в патчер, для ретрекера

Stym — 2010-03-12T23:09:00-02:00

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

Было немного сделано оформление... Но очень хочется чтобы когда юзер пропатчил торент файл, патченый файл загрузился на веб сервер, и юзеру выдало ссылку на скачку файла с сервера, ну и заодному чтобы ему сразу выдался запрос куда созхранить этот файл...

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

сервер: windows 2003, apache

Защита веб-приложений на Perl, Статья

djandrey — 2007-12-09T09:33:00-02:00

За прошедшее время статья сильно пополнилась, стала чуть ли не в два раза больше.

В текущей версии от 8 декабря 2008 уже 31 пункт и это ещё не всё, что хотелось написать. Есть ещё пункты, которые в TODO. Извиняюсь за выкладывание промежуточной версии с некоторой долей сырья под конец (да, прямо посреди текста можно обнаружить несколько TODO). Думаю, это по-любому лучше, чем старая версия с 18 пунктами.

Статья живёт по новому адресу:
http://dj-andrey.ru/articles/perl-web-application-security

Есть мысль по окончанию TODO сделать из этого аудиоверсию, эдакий подкаст чтоли. Но с такой немаленькой и очень програмерский статьёй не всё так просто. Например, одним куском или разрезать, а так же что делать с кодом и таблицами. Что скажете, стоит оно усилий по озвучиванию или это всё-таки вещь для чтения?