my $ua = new LWP::UserAgent;
$ua->timeout($timeout);
$ua->agent($useragent);
$response = $ua->post($domain,['login_name'=>$login,'login_password'=> $password])->as_string;
頁那麼大的內容代碼,thatI不能接收。如何僅通過發送發佈數據獲取標題?
my $ua = new LWP::UserAgent;
$ua->timeout($timeout);
$ua->agent($useragent);
$response = $ua->post($domain,['login_name'=>$login,'login_password'=> $password])->as_string;
頁那麼大的內容代碼,thatI不能接收。如何僅通過發送發佈數據獲取標題?
我認爲這應該爲你做。
my $ua = LWP::UserAgent->new();
$ua->timeout($timeout);
$ua->agent($useragent);
my $response = $ua->post(
$domain,
[ 'login_name' => $login, 'login_password' => $password ]
);
use Data::Dumper;
print Dumper($response->headers());
print $response->request()->content(), "\n";
此答案不回答問題。什麼是錯誤mesaages? –
要首先,請檢查您是否可以通過HEAD通過這個login_name
和login_password
(以URL字符串:domain/?login_name=...&login_password=...
)。如果這不起作用,那麼你的情況很糟糕。
您不能在HEAD行爲中使用POST。 LWP將等待完整回覆。
使用POST服務器無論如何都會給你的內容,但你可以避開自己接收使用TCP套接字的所有內容:的gethostbyname,連接,sysread執行,直到你在這之後/\r?\n\r?\n/
和關閉套接字。無論如何都會使用一些流量,但您可以節省內存並獲得時間。
這是不正常的事情與套接字,但有時當你有高負荷/大數據 - 沒有比這樣的混亂更好的辦法。
它是如此大以至於你無法接收它? –