Perl:LWP用户代理获取受密码保护的文件

时间:2018-02-26 10:19:01

标签: perl lwp-useragent

我的登录具有版主访问权限,并且能够在登录后查看文件,但不会向访客用户查看文件。我想在登录时通过LWP用户代理获取文件。可能吗?请帮忙。

我正在尝试使用下面但它没有获取文件

my $referer = "https://www.example.com/community/";
my $url = "https://example.com/community/attachments/s4022883.jpg";
my %headers = (
  'User-Agent' => 'Mozilla/5.0 (Windows; U; Windows NT 6.1; pl; rv:1.9.2.13) Gecko/20101203 Firefox/3.6.13',
  'Accept' => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8',
  'Referer' => $referer,
  'Content-Type' => 'application/x-www-form-urlencoded',
);

my %params = (
    'a' => '0',
    'b' => '1',
);

my $browser = LWP::UserAgent->new( );
$browser->cookie_jar({});

my $response = $browser->post($url, \%params, %headers);
print STDERR "\n==response==".Dumper($response);

0 个答案:

没有答案