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::UserAgent 这样你才能看到响应的详细信息:

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