如何在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";