在Perl中发送HTTP请求

#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $response = $ua->get('https://www.example.com');

if ($response->is_success) {
    print $response->decoded_content;  # 打印响应内容
} else {
    print "HTTP GET 请求失败: " . $response->status_line . "\n";
}

#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $response = $ua->post('https://www.example.com/post', {
    'key1' => 'value1',
    'key2' => 'value2',
});

if ($response->is_success) {
    print $response->decoded_content;  # 打印响应内容
} else {
    print "HTTP POST 请求失败: " . $response->status_line . "\n";
}