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

Question

我正在尝试使用 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并保存。

Answer 1

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

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;
}