perl 在linux下怎么提交cookie

minewhy

我想下載網(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

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