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

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

1 个答案: