Perl LWP :: UserAgent не получает ответа - PullRequest
Новая
       20

Perl LWP :: UserAgent не получает ответа

0 голосов
/ 12 января 2012

Я отправляю запрос POST на HTTP-сервер и не получил ответа. Код 

my $req = HTTP::Request->new(POST  => $url);
    $req->content_type('application/html');
    $req->content($text);
my $response = $browser->request($req);

И приложение зависает в запросе до истечения времени ожидания. Сервер, отдельное приложение, отправляет ответ, но мой скрипт не получил его. Сервер получает данные. Любая идея для первопричины? Как получить больше информации, если что-то получено, отброшено и т. Д. Неправильное форматирование и т. Д.?

Добавлен полный код: 

#!/usr/bin/perl -w
use strict;

use LWP;
use HTTP::Request::Common;

my $browser = LWP::UserAgent->new( );
$browser->env_proxy( ); # if we're behind a firewall

my $path =$ARGV[0]; #'file to send';
my $url = $ARGV[1]; #'http://127.0.0.1:9000';

open (MYFILE,  $path) or die "Can't open $path\n";
my $text = do { local $/; <MYFILE> };
close (MYFILE) or die "Can't close $path\n";; 


my $req = HTTP::Request->new(POST  => $url);
    $req->content_type('application/html');
    $req->content($text);

my $response = $browser->request($req);

if ($response->is_success) { print $response->content; }
else { print $response->message; };
...