如何在perl中使用POST方法？

Question

我必须获取网页中的所有链接，但所有链接都是使用post方法加载的。

请提供任何解决方案以获取所有链接。

Answer 1

使用LWP：

use warnings;
use strict;
use LWP::UserAgent;
my $linkid = "link identifier";

my $browser = LWP::UserAgent->new;
my $response = $browser->post(
  'http://sitewithlinks/linkget.php',
  [
    'linkid'  => $linkid,
    'hidden' => 'somethinghidden'
  ],
);
die "Error: ", $response->status_line
 unless $response->is_success;

print "GOT THIS: $response->content";