perl 在linux下怎么提交cookie

minewhy

我想下载网页,下载的页面要login以后才能下,可以用ie打开后另存,但是用linux下面perl提交后,得不到结果

代码如下:

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

结果123.htm内容为:

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

先谢谢了

HonestQiao

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'
       }
);