← All posts tagged Perl

Жуйк, есть задача — сделать скрипт, который обсчитает звонки по направлениям. Что-то минибиллинга. И у меня сразу же затык.
Как правильно подобрать направление? Допустим есть звонок по номеру 436500123123. Есть направления в Австралии: 4369900, 436640, 436500, 436760, 436600 и каждое стоит разную цену. Как мне организовать на perl или python проверку всех вызовов и сверку с направлениями? Или как выбрать наиболее подходящее направление? Я не представляю решения этой задачи даже приблизительно.
p.s. направлений более 4000 и звонков более 6000.

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

Гуру перла, вопрос скорее к вам. Страница, на которой есть куча js. Если сам скрипт записан в head в теги <script></script> то я могу сделать так $browser->post("http://site.ru", {login => 1, login_name => $login, login_pass => $pass}); где login это js функция записанная в head, ну а login_name и login_pass соответственно берутся из полей ввода.
А как мне правильно сделать такое обращение, если скрипт таким образом подгружается <script type="text/javascript" src="/js/main.js"></script>?
А теперь усложним задачу. Есть еще и <script type="text/javascript" src="/js/ui.js"></script>. Его задача сводится к тому, чтобы добавить объект (внимание: не изменить видимость объекта, а именно добавить объект) при выделении какого либо элемента в странице (то есть пока элемент на странице не выбран — действий над ним никаких, как только выбрал элемент, то сразу же появляется дополнительное меню с вариантами действий), который тоже управляется с помощью того же самого ui.js. Как тут сформировать запрос?
Написал сумбурно, но надеюсь понятно :)

Жуйк, я тут это... Имею кучу свободного времени, которое вынужден проводить за вендами. Так вот дабы не в пустую сидеть решил поперлокодить. Так вот подскажи ка мне какой из дистрибутивов перла правильный будет? strawberry или active? До этого был какой-то но тормозил жутко, а вот какой конкретно был из головы вылетело уже.

Я совсем долбанулся, да? Я сижу и подгоняю под Perl::Critic свой код, который недавно начал писать. Мне бы сначала до рабочего состояния довести, ане этими плючшками маяться.

Есть кусок текста, который начинается с <br /><span> и заканчивается </span><br >. Все <br > внутри <span> надо оставить, а первый и последний обрезать. Как сделать это регуляркой?

Что-то моя дурья бошка нифига не понимает. Если выводить один массив просто через написанные мной функции, то выводит. А если все это еще засунуть в цикл, то функция выдает уже не содержимое массива, а количество элементов в нем. Хоть убей, но не вижу причин такого поведения.

Объясните мне, дураку, как всей этой мощью воспользоваться. А то вот через Mojolicious::Lite, создается демон-сервер и всё работает, а через Mojolicious::Template просто выхлоп в терминал, а в браузере пусто. Хочется создать скрипт, который будет обрабатываться моим сервером и отдавать страницу, как CGI. Но я, что-то не пойму как это сделать.

Это очень интересно получается. Использую XML::DOM::Parser с дополнительно установленной локалью win1251.enc, чтобы модуль нормально распознавал русские RSS. Запускаю парсер на нестандартный тег, содержащий в себе ":". Ругается что мол у меня там wide character в такой-то строке скрипта. Отменить высер всех этих ошибок, которые по объему занимают в 2 раза больше чем мне с этой RSS нужно сделался легко:
use warnings "all";
no warnings "all";

Перл такой перл.

Есть ли тут гуру перла, которые могут привести мне полноценный пример того как пользоваться HTML::Parser? То есть мне нужно получать из phpBB форума комментарии к определенному топику. Начинаются комментарии с <div class="post_body">. Авторизацию через LWP сделал, получение содержимого определенной страницы сделал, а убрать ненужный мне мусор не могу :( Документация на CPAN по поводу этого самого HTML::Parser может и дельная, но явно не для моего ума.

Жуйковчане, что за фигня такая получается с использованием CGI в perl. Вывод начинается так: <html><body><html><head>, а заканчивается вообще вот так </body></html></body></html>
Вот сам скрипт и то что он выдает pastie.org

% e-file perlcc говорит, что perlcc содержится в уже установленном пакете dev-lang/perl и должен лежать в /usr/bin/ но там его естественно нет. Как скомпилировать perl исходники в бинарный исполняемый файл?