10 большинство последних Тем

10 большинство последних Тем - Perl.dp.ua :: Форум http://forum.perl.dp.ua/cgi-bin/YaBB.pl - Perl.dp.ua :: Форум ru-ru Perl.dp.ua :: Форум Wed, 08 Sep 2010 00:44:12 +0000 http://blogs.law.harvard.edu/tech/rss 30 Вопросы новичков - тестовая смс система на perl http://forum.perl.dp.ua/cgi-bin/YaBB.pl?num=1281259557/1#1 Perl.dp.ua :: Форум/Вопросы новичков Создать реально работающую тестовую смс систему на языке perl: 1) веб сервер (apache,lighttpd,....) <a href="http://localhost/test.cgi" target="_blank">http://localhost/test.cgi</a> 2) демон(скрипт) test.pl работающих на mysql (postgresql) базе данных (1) - является приемщиком смс от внешних систем в формате <a href="http://localhost/test.cgi?do=recieve_sms&phone=380501234567&text=test+text" target="_blank">http://localhost/test.cgi?do=recieve_sms&phone=380501234567&text=test+text</a> он сохраняет эту смску в базу, и ставит ей статус что она ждет отправки если все удачно то возвращает текст OK (2) - является отсыльщиком смс, он в бесконечном цикле берет все смски, которые надо отправить и шлет их на (1) в формате <a href="http://localhost/test.cgi?do=send_sms&phone=380501234567&text=test+text" target="_blank">http://localhost/test.cgi?do=send_sms&phone=380501234567&text=test+text</a> по этой ссылке возвращает (работает без базы) а) CAN_NOT_SEND если телефон начинается не на 380 или длина телефона не равна 12 цифр (*) (это эмуляция того что отсылать можем только на укр. номера, в международном формате), это означает что смску не может послать и (2) должен сохранить статус и больше не посылать эту смс; б) если проходит условие (*) то возвращает с вероятностью 50%/50% - OK и FAIL, при OK (2) сохраняет что смс отослал удачно .... если произошел FAIL то (2) должен повторить попытку, не раньше чем через 60 секунд послать эту смску еще раз. B базе хранится время приема смс  (т.е. когда произошел ?do=recieve_sms) и время отправки или информации о том что смс послать невозможно (т.е. при получении  OK или CAN_NOT_SEND на ?do=send_sms) Hаписать (1) c помощью модуля  CGI::Application (как раз будут две ранмоды do=recieve_sms и do=send_sms) (2) с помощью LWP (1) и (2) должны использовать для базы данных  DBI (DBD::Mysql ... postgresql ...) Вопросы новичков - Полное сохранение веб-страници из интернета http://forum.perl.dp.ua/cgi-bin/YaBB.pl?num=1278209374/0#0 Perl.dp.ua :: Форум/Вопросы новичков Есть задача - получить и сохранить веб-страницу полностю со всема стилями, графикой и скриптами (как ето делает wget). Может есть уже готовый модуль для такой задачи или общедоступные наработки? Спасибо за внимание. Поиск работы для Perl-программистов - PERL-программист http://forum.perl.dp.ua/cgi-bin/YaBB.pl?num=1250013012/3#3 Perl.dp.ua :: Форум/Поиск работы для Perl-программистов ........ 6) заказ: модули к файлообменнику<a href="http://sibsoft.net/xfilesharing.html" target="_blank">http://sibsoft.net/xfilesharing.html</a>   <a href="http://cityhost.mk.ua" target="_blank">http://cityhost.mk.ua</a>    Perl, MySQL + ISPmanager, ProFTPd 7) Компания Relmax из Огайо (США) Работа над сайтом EasyHits4U.com, обновление существующего функционала и программирование новых функций. Это самая популярная в мире система обмена посетителями (т.н. трафикообменка) и самый успешный проект компании, который работает с 2003 года и на котором зарегистрировано 276 000 пользователей, и их кол-во постоянно растет. Perl, MySQL, JQuery 8) FAQ perl <a href="http://unixforum.org.ua/index.php?topic=23928" target="_blank">http://unixforum.org.ua/index.php?topic=23928</a> статья CRUD SQL::Abstract <a href="http://unixforum.org.ua/index.php?topic=26299" target="_blank">http://unixforum.org.ua/index.php?topic=26299</a> резюме: <a href="http://unixforum.org.ua/index.php?topic=18084" target="_blank">http://unixforum.org.ua/index.php?topic=18084</a> <a href="http://www.x0.org.ua/blog/user/1/view/30" target="_blank">http://www.x0.org.ua/blog/user/1/view/30</a> Курилка - уличный маг :) http://forum.perl.dp.ua/cgi-bin/YaBB.pl?num=1212417620/2#2 Perl.dp.ua :: Форум/Курилка Ага, настоящий маг! Повеселило)))) _______________ если знаешь ЗАЧЕМ преодолеешь любые КАК (с) <a href="http://agrealt.ru" target="_blank">Продажа квартир</a> Предложение работы для Perl-программистов - Срочно требуется программист Perl http://forum.perl.dp.ua/cgi-bin/YaBB.pl?num=1271157988/0#0 Perl.dp.ua :: Форум/Предложение работы для Perl-программистов Добрый день! В крупную украинскую компанию требуется программист со знанием Perl, MySQL, JavaScript, Ajax. Выполняться будут задачи по разработке модулей корпоративной системы (web), поддержке и расширению функциональности уже разработанных сайтов (интернет-магазин, брендовые сайты с каталогом товаров и клубами). Работа в Киеве, полная занятость ЗП: 1200-1500 у.е. Если Вы рассматриваете предложения по работе - буду рада с Вами пообщаться. С уважением, Светлана ICQ: 336621699 Tel: 0681005323 Вопросы новичков - Использование фиксирующей директивы \b http://forum.perl.dp.ua/cgi-bin/YaBB.pl?num=1270137432/2#2 Perl.dp.ua :: Форум/Вопросы новичков Кажется, я понял. Спасибо! Нет, в моей редакции книги так и написано. Но, судя по всему, имелось ввиду именно /abc\bdef/. Вопросы новичков - запуск cgi-cкрипта от имени.... http://forum.perl.dp.ua/cgi-bin/YaBB.pl?num=1267418284/1#1 Perl.dp.ua :: Форум/Вопросы новичков а скрипт через веб сервер дергать собираешься? Вопросы новичков - Помогите составить простой скрипт для зачета http://forum.perl.dp.ua/cgi-bin/YaBB.pl?num=1264335985/2#2 Perl.dp.ua :: Форум/Вопросы новичков Мне здесь немного подсказали, не хватает совсем чуть-суть. У меня уже есть кусок кода в тком виде: #!/usr/bin/perl use warnings; use strict; my @desc = qw/dev  ino mode nlink uid gid rdev size atime mtime ctime blksize blocks/; my $file_name = $ARGV[0]; if(defined($file_name)) {    if(-f $file_name and -r $file_name) {        if(-l $file_name) {            print "It's symbolic link\n";        }        my @data = stat($file_name);        for(my $i=0; $i<13; $i++) {            print "$desc[$i]: $data[$i]\n";        }    }    else {        print("I can't read file: $file_name or it's directory\n");    } } else {    print("Please, enter filename\n"); } Помогите, так сказать, добить ... Вопросы новичков - Помогите разобраться http://forum.perl.dp.ua/cgi-bin/YaBB.pl?num=1264240453/2#2 Perl.dp.ua :: Форум/Вопросы новичков Да, спасибо разобрался!!! Perl и различные ОС - windows && Mac http://forum.perl.dp.ua/cgi-bin/YaBB.pl?num=1133172461/3#3 Perl.dp.ua :: Форум/Perl и различные ОС ну на самом деле зависимость регистра зависит от файловой системы. На hfs+ при работе в консоли регистр учитывается.