![]() |
||
|
Major Member
![]() 加入日期: Feb 2004 您的住址: 搬到台中哩
文章: 224
|
小弟最近在利用perl做自動登入擷取網頁資訊的perl程式
程式碼如下: 代碼:
use strict;
use LWP::UserAgent;
my $browser = LWP::UserAgent->new;
my $resp = HTTP::Request->new(POST => 'http://www.tvboxnow.com/logging.php?action=login&loginsubmit=yes');
$resp->content_type('application/x-www-form-urlencoded');
$resp->content('loginsubmit=true&username=test&password=test');
my $response=$browser->request($resp)->as_string;
my $url="http://www.tvboxnow.com/index.php";
$resp = HTTP::Request->new(GET => $url);
print $browser->request($resp)->as_string;
在前半段部分已經成功登入,從$response可得知 但是接下來要擷取網頁資訊的時候又變成登出狀態了 因此我在猜想會不會是不同session 該如何解決這個問題呢?有能人幫忙解答嗎?謝謝~
__________________
萬年誠徵女友@@ PCDVD名言:趴~趴~趴~沒圖沒真相!!! |
|||||||
|
|