Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Сообщения - sd1074

Страницы: [1] 2 3
1
Perl / Проблема с LWP + Cookie
« : 07 Июля 2008, 15:15:29 »
Проблема решена. Когда выполняется редирект, то кукис второй раз не отсылается. Один из вариантов решения:

$ua->default_headers->push_header(\'Cookie\' => \'id=12345\');

то есть по умолчанию для каждого запроса от $ua в заголовке будет передаваться данный кукис.

2
Perl / Проблема с LWP + Cookie
« : 07 Июля 2008, 11:54:44 »
Здравствуйте! Проблема такая. Мне нужно получить страницу с URL http://mysite.ru, передав на неё Cookie вида "id=12345". Причём мне хотелось бы передать этот куки вручную.

Что я делаю:


use LWP::UserAgent;

use LWP::ConnCache;


$ua = LWP::UserAgent->new;

$cache = $ua->conn_cache(LWP::ConnCache->new( )); #просто  чтобы держать соединение

$url = \'http://mysite.ru\';

$resp = $ua->get($url,

  \'Accept\' => \'text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5\',

  \'Accept-Language\' => \'ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3\',

  \'Accept-Encoding\'        => \'gzip,deflate\',

  \'Accept-Charset\'         => \'windows-1251,utf-8;q=0.7,*;q=0.7\',

  \'Connection\'             => \'keep-alive\',

  \'Keep-Alive\'             => \'300\',

  \'Cookie\'                 => \'id=12345\',

);


if ($resp->is_success) {

    print $resp->content;

}

else {

    print $resp->status_line, "\\n";

}



Сейчас я ещё опишу немного про настройки сервера, потом будет понятно зачем.


В корне сервера (я имею доступ к серверу) лежит .htaccess, где прописано:

RewriteEngine On

RewriteRule index.htm http://mysite.ru/cgi-bin/index.pl

То есть при обращении к http://mysite.ru выполняется скрипт /cgi-bin/index.pl. Этот редирект (ну или точнее подмена адреса) работает нормально в браузере, да и вообще нормально работает.


Серверный скрипт /cgi-bin/index.pl имеет вид:

#!/usr/bin/perl

print "Content-Type: text/html; charset=windows-1251\\n\\n";

print "Cookie: $ENV{\'HTTP_COOKIE\'}";


То есть просто выводит значение куки.


Если, $url в приведённом выше скрипте HTTP-клиента сделать равным \'http://mysite.ru\' (как там указано сейчас), то скрипт выводит: "Cookie: ", то есть куки нет (ну на самом деле я проверял, там в хэше окружения вообще нет ключа \'HTTP_COOKIE\'), а если изменить $url на \'http://mysite.ru/cgi-bin/index.pl\', то всё работает (то есть выводится значение куки: "Cookie: id=12345").

При этом, в браузере куки выводится всегда, как и должно быть.

Как это так??!! Я что-то вообще голову сломал уже =\\ Заранее спасибо.

3
Perl / Репозитории для ppm
« : 24 Марта 2008, 20:42:49 »
Спасибо

4
Perl / Репозитории для ppm
« : 22 Марта 2008, 23:43:51 »
Столкнулся с такой ситуацией: ставил DBD-mysql на ActiveState Perl 5.10, MySQL 5.0. Графический ppm от ActiveState использовал по умолчанию только один свой репозиторий: http://ppm4.activestate.com/MSWin32-x86/5.10/1002/package.xml , причём там не было DBD-mysql (только DBD-mysqlPP). Короче полдня по неопытности потратил, чтобы установить этот драйвер (пытался компилить, но там тоже возникли свои проблемы), пока не нашёл наконец ссылку на другой репозиторий (http://cpan.uwinnipeg.ca/PPMPackages/10xx/package.xml), добавив который, я наконец смог установить драйвер.

Внимание вопросы:
1) Где можно найти ссылки на все или хотя бы большиноство репозиториев
2) Как вообще было правильнее поступить в описанной мной ситуации?

Спасибо.

5
Perl / DOM на сервере. Возможно ли?
« : 31 Января 2008, 06:21:03 »
demond , спасибо
ravshaniy , гыгы

6
Спасибо, разбираюсь.

7
Друзья, зачем вы столь категоричны?
Оказалось есть как минимум 2 пути. На другом форуме подсказали.
Ajax сервер:
http://www.aptana.com/jaxer
Модуль под Перл:
http://search.cpan.org/~claesjac/JavaScript-1.04/lib/JavaScript.pm

8
Perl / DOM на сервере. Возможно ли?
« : 24 Января 2008, 18:35:41 »
Сущетвут ли в Perl средства для работы с DOM? Очень  бы хотелось.

9
Да ничего не мешает... но это всё некрасиво, получается дублирование кода.
Может есть хоть какие-то средства для работы с DOM на сервере?

10
Perl / регулярное выражение . . .
« : 23 Января 2008, 23:49:29 »
А такой вариант не подойдёт?

$page=~s/\\$(\\w*)\\;/$$1/g;

11
Да, да я в курсе на счёт серверных языков :) У меня есть небольшой опыт.
Однако согласитесь, что в этом есть смысл.
Вот смотрите: допустим, ваша страница имеет гостевую книгу на AJAXе, то есть при добавлении сообщения вам нужно обновить содержимое страницы (там уже могли появиться сообщения и от других пользователей). С помощью аякс-запроса вы получаете список сообщений и выводите их. То есть механизм извлечения данных из БД (выполняемый серверным скриптом) и вывода их в НТМL уже запрограммрован.
Но вот когда пользователь первый раз открывает страницу, список сообщений формируется обычно серверным скриптом, то есть получается одно и тоже делается два раза. Если же использовать АЯКС запрос для получения списка сообщений даже в момент первой загрузки страницы, то получается медленнее, т.к. выполняется два ХТТП-запроса.
Очевидным выходом является выполнение AJAX запроса внутри сервера. А конкретнее той части JavaScript, которая парсит данные полученные из БД (и которые приходят в виде AJAX-ответа (причём вероятно в формате JSON) и формирует из них HTML-код).

Я вообще говоря, не прошу вас согласиться как написал вначале, а просто прошу порассуждать по этому поводу. Может быть я что-то не заметил и можно как-то сделать всё проще?

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

12
Такой вот вопрос.
Есть необходимость перед отправлением HTML-страницы пользователю выполнить некий JavaScript внутри неё на стороне сервера и уже эту обновлённую страницу отправлять.
Существует ли что-то такое?

13
Нет, не писал.. Решил, что не стоит индивидуально человека беспокоить... Вы думаете стоит написать?

14
Не нашёл более подходящего раздела форума...
Уважаемые профессионалы, люди, стоящие на переднем крае развития Веб, скажите, имеет ли смысл концентрироваться на Perl? У меня уже имеется некоторый (пусть и небольшой) опыт программирования на этом чудесном языке, а также некая любовь к нему, но на сегодняшний день я прямо-таки вижу повсеместное угасание его как веб-языка...
На Ваш взгляд каково его будущее? Изменит ли выход perl 6 существующую тенденцию? И вообще дождёмся ли мы perl 6?
Или может быть я ошибаюсь в столь пессимистичном представлении о состоянии дел?
Хотелось бы услышать мысли по поводу Perl на сервере и PerlScript..

Хотелось бы, чтобы данный вопрос вызвал объективный анализ существующей ситуации.

15
Веб Сервера / mod_rewrite локально
« : 08 Октября 2007, 00:36:58 »
Парился три дня. Не мог запустить mod_rewrite. Оказалось надо ещё включить директиву AllowOverride, а то она в None стояла и Rewrite не работал.

Блиииин!!
Это сообщение можно удалить, не заметил, что есть вторая страница, где как раз уже разобрались с этой проблемой. А я тут три дня лазил и не мог включить реврайт!!
Оказывается надо смотреть на количество страниц в форуме!!! Это ж надо было так слажать :(

Страницы: [1] 2 3