亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標題: perl 在linux下怎么提交cookie [打印本頁]

作者: minewhy 時間: 2006-06-07 12:05
標題: perl 在linux下怎么提交cookie
我想下載網(wǎng)頁,下載的頁面要login以后才能下,可以用ie打開后另存,但是用linux下面perl提交后,得不到結(jié)果

代碼如下:

use LWP::Simple;
$result = "http://www.superarray.com/genetable.php?pcatn=OHS-803";
getstore($result,'123.htm');

結(jié)果123.htm內(nèi)容為:

<SCRIPT LANGUAGE='Javascript'> location ='customer_login.php'</SCRIPT>

先謝謝了

作者: HonestQiao 時間: 2006-06-08 23:36
use LWP::UserAgent;
my $cookie = 'ce_tjbbspassword=d966820fXXXXXXXXXXXX56e650e1b3; ce_tjbbsuserid=49XXX; CEFS=b8b297413ee041358f35384e100a19c3';
my $agent=new LWP::UserAgent;
$agent->default_header('cookie' => $cookie);
my $result=$agent->post(
   "http://www.xxx.net/post.php",
   {
            title => 'test water',
            content => 'hehe'
   }
);

歡迎光臨 Chinaunix (http://72891.cn/)