![]() |
||
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名言:趴~趴~趴~沒圖沒真相!!! |
|||||||
![]() |
![]() |