Execute a simple API using perl script

Question

I'm trying to execute a API using a perl script. I'm in initial stage and below is the simple script I got which is not working. I have used get command to execute the API. But I'm not sure it will work or not. In fact I'm not able to find the get command will work not because I'm getting a different error in this code . This script gives me error like below

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

Here is the script.

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

my $api_content;

my $api = 'https://admin:[email protected]/set_param?init.snmp_ver=3&mib.save'; 
$api_content = get($api); 

print $api_content;

Please let me know if there is a command is will be useful for executing this simple API. Basically I need to set the value of snmp to 3 and save.

brian d foy · Accepted Answer · 2022-12-06 19:06:02Z

2

I think your problem is, that you need to use LWP::UserAgent directly so you can see the details of the response:

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

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

edited Dec 6, 2022 at 19:06

brian d foy

134k31 gold badges214 silver badges613 bronze badges

answered Apr 16, 2013 at 8:41

user1558455

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Execute a simple API using perl script

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related