Сообщения

1

Perl / Помогите с скриптом

« : 14 Сентября 2009, 21:47:36 »

Код на Perl - ужасен.
 ##Logging
[B]открываем для логов один дескриптор[/B]
open (LOG,">>D:/server/APACHE/web/site/cgi/checks/checks.log");
my $time=localtime();
[B]а пишем в другой?!?[/B]
print File " *********** CKECKS.PL LOGGING FACILITY STARTED**************\\n";
print LOG "$time Opening checks file....\\n";
open(FD,@ARGV[0]) and print LOG("$time Cannot open checks file....@ARGV[0]\\n");

вообще открывать файлы лучше либо через модуль IO::File, либо уж на худой конец так:
open(FILE,">>","filename.txt") || die "Error :$!\\n";
здесь хотя бы будет понятно что произойдет в случае ошибки открытия.

2

Perl / Сколько будет стоить написать проект?

« : 30 Января 2008, 16:56:04 »

проект на уровне:
http://www.megashop.ru

3

Perl / Сколько будет стоить написать проект?

« : 30 Января 2008, 14:52:37 »

Уважаемые коллеги.
Есть задача написания интернет-магазина на perl (под mod_perl). Не очень навороченный проект, но и не совсем простой.
Скажите есть ли на форуме люди готовые взяться за проект и сколько ориентировочно это будет стоить?

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

отзывы можно здесь или в пм.

4

Perl / Контроль шар на Windows

« : 11 Августа 2006, 16:20:12 »

Руководство поставило задачу - контролировать расшаренные ресуры на файл сервере.
То есть требуется писать лог:
когда какой_файл _кто_открыл/скачал/удалил

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

5

Perl / Поиск (определение контента)

« : 13 Июля 2006, 15:17:09 »

Для винды аналог:
perldoc LWP::Simple | find /I "head"

6

Perl / Редирект

« : 12 Июля 2006, 12:21:04 »

И этот скрипт по прямому обращению к нему (не через редирект) - работает нормально?

З.Ы
И кстати вы незабываете ссылаться при редиректе на  http://server/cgi-bin/v.pl?id=15\\n\\n";

7

Perl / Редирект

« : 12 Июля 2006, 11:58:29 »

Ну как вариант запрашивать из скрипта предварительно страницу и проверять ответ сервера... Хотя конечно непонятно... скрипт v.pl вами написан?

8

Perl / Многострочные sql запросы

« : 12 Июля 2006, 11:39:42 »

Драйвер скорее всего DBD::Oracle.
Вызов внешней программы для работы с БД имхо плохая идея, так как возможности контролировать это приложение невысоки по сравнению с управлением и контролем за запросами средствами DBI.
И почему вы считаете что считывать из файла будет медленней?
Есть такой модуль SQL::Statement, вот некоторые его возможности:

Код: [Выделить]


 #!/usr/bin/perl -w
 use strict;
 use SQL::Statement;

 my $cache={};
 my $parser = SQL::Parser->new();
 for my $sql(split /\\n/,
 "  CREATE TABLE a (b INT)
    INSERT INTO a VALUES(1)
    INSERT INTO a VALUES(2)
    SELECT MAX(b) FROM a  "
 ){
    $stmt = SQL::Statement->new($sql,$parser);
    $stmt->execute($cache);
    next unless $stmt->command eq \'SELECT\';
    while (my $row=$stmt->fetch) {
        print "@$row\\n";
    }
 }
 __END__

Возможно вам стоит его попробовать.

9

Perl / URL

« : 12 Июля 2006, 11:17:03 »

можно заимствовать из CGI::Util.pm

10

Флейм / Что скажете?

« : 05 Июля 2006, 16:20:19 »

Наткнулся на не менее интересную статью
PHP and Perl
:-)

11

Perl / Организация авторизации

« : 05 Июля 2006, 15:44:17 »

Зачем изобретать велосипед, не проще ли куки привязать к ип адресу (здесь могут быть два варианта - к примеру в профиле пользователя хранится IP адрес с которого можно залогинится, или при создании cookie набора в кукисы вносится информация об ip адресе, и при повторной авторизации с этими куками - проверяем соответствие ip в куках и ip клента. Здесь естессно формат записи ip-адреса в куках не должен быть plain/text.
Еще один интересный вариант авторизации - ключевой файл который требуется подгрузить на сервер для авторизации...

Но в любом случае - все это развалится если весь ваш трафик слушается, и arto  прав - для финансовых систем необходим ssl, или...
в http можно инкапсулировать аналог https.
Такие разработки велись кое-где (к примеру форум -http://www.security-teams.net/index.php?showforum=26. а так же обсуждение здесь - http://poizon.net.ru/cgi-bin/ikonboard/ikonboard.cgi?act=ST;f=6;t=17 ) но это все относится в основном к конфидециальному общению, хотя кое-что можно и прикрутить для авторизации.

12

Perl / организация системы файлового сервера. как думаете?

« : 05 Июля 2006, 15:20:04 »

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

add//
отправил...

13

Perl / XML::Parse vs XML::Simple

« : 05 Июля 2006, 15:04:26 »

#!/usr/bin/perl -w

use XML::Simple;
 my $ref = XMLin(\'1.xml\');
 my $item=$ref->{item};
 foreach (keys %$item) {
 my $id=$_;
 my $index=$item->{$_}{\'index\'};
 my $value=$item->{$_}{\'content\'};
 print "id=$id index=$index value=$value\\n";
 }

в файле 1.xml лежат ваши данные....

14

Perl / организация системы файлового сервера. как думаете?

« : 19 Июня 2006, 10:53:09 »

антилич оказался довольно большой (несколько файлов), могу на мыло скинуть.

15

Perl / Странности регулярного выражения

« : 14 Июня 2006, 17:26:26 »

ага, спасибо - все понял...
такой вот вариант решил конкретно эту проблему, но не по всему файлу,

/From:\\s+(.+)\\@(.+?)\\.(\\w+)\\,/;

Ваш вариант наиболее жизнесопсобен.