如何发布网址并使用perl回顾网站内容

Question

我想获得解决方案，了解如何发布特定网址和检索内容。用perl可以吗？让它成为我们搜索某个特定ID的网站，并且我们应该获得标记为该ID的相关信息。

Answer 1

使用此

use LWP::UserAgent; 

my $ua = LWP::UserAgent->new; 

my $server_endpoint = ""; 

# set custom HTTP request header fields 
my $req = HTTP::Request->new(GET => $server_endpoint); 
$req->header('content-type' => 'application/json'); 


my $resp = $ua->request($req); 
if ($resp->is_success) { 
    my $message = $resp->decoded_content; 
    print "Received reply: $message\n"; 
} 
else { 
    print "HTTP GET error code: ", $resp->code, "\n"; 
    print "HTTP GET error message: ", $resp->message, "\n"; 
} 

或者你也可以做到这一点的方法也使用LWP::Simple

use strict; 
use warnings; 
use LWP::Simple; 

my $url = 'http://www.example.com'; 
my $content = get $url or die "Unable to get $url\n"; 
print $content;