使用perl脚本执行一个简单的API

我正在尝试使用perl脚本执行API。我在初始阶段，下面是我得到的不起作用的简单脚本。我已经使用get命令来执行API。但我不确定它是否会起作用。事实上，我找不到get命令将起作用，这不是因为我在这段代码中遇到了另一个错误。这个脚本给我的错误如下

Use of uninitialized value $api_content in print at igmp.pl line 11.

这是剧本

#!/usr/bin/perl   
use strict; 
use warnings;  
use LWP::Simple;  

my $api_content;

my $api = 'https://admin:Macin123@12.34.45.67/set_param?init.snmp_ver=3&mib.save'; 
$api_content = get($api); 

print $api_content;

---

请让我知道是否有一个命令是将用于执行这个简单的API。基本上，我需要将snmp的值设置为3并保存。

我认为您的问题是，您需要一个LWP对象

my $ua = LWP::UserAgent->new;
my $response = $ua->get('https://admin:Macin123@12.34.45.67/set_param?init.snmp_ver=3&mib.save');

if ($response->is_success) {
    print $response->decoded_content;  # or whatever
}
else {
    die $response->status_line;
}

---

我认为你的问题是，你需要一个LWP目标

my $ua = LWP::UserAgent->new;
my $response = $ua->get('https://admin:Macin123@12.34.45.67/set_param?init.snmp_ver=3&mib.save');

if ($response->is_success) {
    print $response->decoded_content;  # or whatever
}
else {
    die $response->status_line;
}