Спасибо, я забыл про существование post(), если он не будет перекодировать < > в %ХХ тогда заранее спасибо, возможно сэкономил время.  

Это сообщение отредактировал(а) stan777 - 19.3.2007, 00:35

Если будут траблы с перекодированием, попробуй поэксперементировать с аргументом Content_Type у post.

Ок, спасибо. 

А ты не знаешь как к такому запросу пришить куки ?

stan777, уже показывал 
перед этими строка укажи

или


а так: perldoc LWP::UserAgent

Это сообщение отредактировал(а) nitr - 21.3.2007, 22:05

да спасибо ! это мне и было нужно .

Это сообщение отредактировал(а) stan777 - 28.3.2007, 09:38

скажите полиз зачем вы делаете вот это? 




уже понял! не надо длятого чтобы работало, чтобы заголовок передать 

Это сообщение отредактировал(а) gcc - 1.5.2008, 19:38

Уважаемые знатоки ПЕРЛа, любители и начинающие (как я)!
У кого есть возможнасть и желание помоготе плизз!

Проблема, возможно простая, но решить своими силами я не в состоянии :(

Мне нужна программа, которая должна пройти аутентификацию на сервере "ric.consultant.ru", 
после этого перейти на страничку с информацией за определенный день, 
например http://ric.consultant.ru/interactive/?date=2008-07-1, при чем на http://ric.consultant.ru/interactive/ хранитса информация за текущий день. На страничке есть таблица с текстом ( что можно скачать ), гиперссылки на уже "живые" файлы, и т.д.

Пока застопорился на аутентификации, и получении этой самой странички за текущую дату!
Вот что есть:
------------------- B E G I N -----------------------
#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
use LWP::UserAgent;
use LWP::Debug qw(+);

my $ua=LWP::UserAgent->new();
   $ua->timeout(5);
   $ua->agent("Mozilla/4.0");
   $ua->proxy('http', 'http://127.0.0.1:8080'); # установлен проксимитрон, который проходится без проблем

$ua->credentials(
    'ric.consultant.ru:8080',
    'RIC_Information_server',
    'мой login' => 'мой password'
  );

my $url = "http://ric.consultant.ru/";

my $document=$ua->request(HTTP::Request->new(GET => $url));

print "Content-type: text/html\n\n";
my $html = $document->content;

my @str=split /<tr>/, $html;
   foreach my $str_ (@str)  { print $#str, " ::: " , $str_, "\n";   }
--------------------- E N D ----------------------

вот что пишет проксимитрон в логе:

------------------- B E G I N -----------------------
New Message Log Window....

+++GET 5+++
GET / HTTP/1.1
TE: deflate,gzip;q=0.3
Host: ric.consultant.ru
User-Agent: Mozilla/4.0
Connection: keep-alive

+++RESP 5+++
HTTP/1.1 401 Authorization Required
Date: Tue, 01 Jul 2008 13:26:51 GMT
Server: Apache
WWW-Authenticate: Basic realm="RIC_Information_server"
Connection: close
Transfer-Encoding: chunked
Content-Type: text/html; charset=iso-8859-1
Match 5: Kill pop-up windows
Match 5: Suppress all JavaScript errors
Match 5: Stop browser window resizing
<end> 5: Restore pop-ups after a page loads
+++CLOSE 5+++
--------------------- E N D ----------------------

и вот что сообщает консоль:
------------------- B E G I N -----------------------


LWP::UserAgent::new: ()
LWP::UserAgent::proxy: http http://127.0.0.1:8080
LWP::UserAgent::request: ()
LWP::UserAgent::send_request: GET http://ric.consultant.ru/
LWP::UserAgent::_need_proxy: Proxied to http://127.0.0.1:8080
LWP::Protocol::http::request: ()
LWP::Protocol::collect: read 246 bytes
LWP::Protocol::collect: read 38 bytes
LWP::Protocol::collect: read 37 bytes
LWP::UserAgent::request: Simple response: Unauthorized
Content-type: text/html

0 :::
<!--//--><script src="http://local.ptron/WindowOpen.js"></script>

<!--//--><script> function NoError(){return(true);} onerror=NoError; </script>

<!--//--><script> function moveTo(){return true;}function resizeTo(){return true;}</script>
<H1><B> Authorization failed </B></H1>
<!--//--><script>PrxRST();</script>
--------------------- E N D ----------------------

  
Используйте тег [code]

Уважаемый опытный пользователь, я прошу ПОМОЩИ, а не спрашиваю где находится КРЕМЛЬ , к сожаления мне не достаточно махнуть рукой в сторону ГДЕ искать ответ :(, т.е. я там скорее всего был, но мне это не помогло!!! Здесь ТЯЖЕЛЫЙ случай  - нужно реальное "терапевтическое" вмешательство!    
Мой код вы видете - если все вам понятно, что где я накосячил, и вы знаете как нужно написать правильно, что бы все заработало то напишите правильный РАБОЧИЙ вариант. Как я уже писал выше мне нужно пройти аутентификацию ( или авторизацию,  хз как правильно ) на сервере http://ric.consultant.ru/, и получить содержимое странички с http://ric.consultant.ru/interactive/.

Уважаемый SuperProga вас просят проявлять уважение к остальным участникам. Вы разве не видите надпись КОД?

SuperProga, в методе credentials, в первом параметре, попробуйте заменить порт 8080 на 80.
Если не поможет - попробуйте сделать запрос без прокси.

SuperProga, еще, как вариант, можно использовать авторизацию из примера к LWP::UserAgent.

Это сообщение отредактировал(а) ginnie - 2.7.2008, 11:04

Уважаемый shamber, к сожалению я не силен в пользовании возможностями ФОРУМА, но общий смысл вашей мессаги кажется до меня дошел. Попробую воспользоваться!

KSURi огромное спасибо! Волшебное урезание 8080 до 80 в credentials действительно помогло!!!
Вот как это выглядит в рабочем варианте


в файле "LOG.html" сохраняется стартовая страничка с http://ric.consultant.ru/, правда гиперссылки указывает не верные (ссылается видимо на текущий каталог как корневой: <A HREF=/interactive/> )

Стартовую страничку я получил. Осталось дело за малым как теперь получить страничку с  http://ric.consultant.ru/interactive/?

  
Уважаемый SuperProga, вы очень быстро учитесь, и это хорошо. Только в следующий раз, нажимайте пожалуйста не просто код, а код->perl 
Вам все будут очень признательны. 
  


А там куки не используются? Поищите по форуму, как использовать куки тут уже много раз обсуждали