- 论坛徽章:
- 0
|
- #!/usr/bin/perl
- use strict;
- use warnings;
- use LWP;
- use HTTP::Cookies;
- print "Content-type:text/html \n\n";
- my $browser=LWP::UserAgent->new;
- my $new_agent='Mozilla/5.0';
- $browser->agent($new_agent);
- my $response=$browser->get('http://www.163.com');
- #print $response->content;
- $browser->cookie_jar(HTTP::Cookies->new(
- 'file'=>'chinaunix.lwp',
- 'autosave'=>1));
复制代码
有错 ? .
但是保存的chinaunix.lwp却是啥都没阿
msn@debian:~$ cat chinaunix.lwp
#LWP-Cookies-1.0
------------
第二个问题想问下, 保存下来的cookie怎么用LWP再传出去给服务器.. |
|