sridhar11
asked on
perl program error please help me
Hi,
I am running below perl program i am getting error as below. Please help me why i am getting this error.
Result ERROR: Expected OBJECT IDENTIFIER in dotted notation. , public
Program
#! /usr/local/bin/perl
use strict;
use Net::SNMP;
sub getdata
{
my ($session,$error,$id);
my ($server,$id);
# ($server,$id) = @_;
$server = "$_[0]";
$id = "@_[1]";
print "$server - $id \n";
# $server = "gbssun";
# $id = ".1.3.6.1.2.1.2.2.1.10.2";
($session, $error) = Net::SNMP->session(
-hostname => shift || $server,
-community => shift || 'public',
);
if (!defined($session)) {
printf("Session ERROR: %s. \n", $error);
exit 1;
}
my $result = $session->get_request(
-varbindlist => [$id] );
if (!defined($result)) {
printf("Result ERROR: %s. $result, $id\n", $session->error);
$session->close;
exit 1;
}
printf("Input octets for host '%s' is %s\n",
$session->hostname, $result->{$id}
);
$session->close;
# exit 0;
}
###################33
# Main Code
#######################333
getdata("gbssun","public", "1.3.6.1.2 .1.2.2.1.1 0.2");
#getdata();
I am running below perl program i am getting error as below. Please help me why i am getting this error.
Result ERROR: Expected OBJECT IDENTIFIER in dotted notation. , public
Program
#! /usr/local/bin/perl
use strict;
use Net::SNMP;
sub getdata
{
my ($session,$error,$id);
my ($server,$id);
# ($server,$id) = @_;
$server = "$_[0]";
$id = "@_[1]";
print "$server - $id \n";
# $server = "gbssun";
# $id = ".1.3.6.1.2.1.2.2.1.10.2";
($session, $error) = Net::SNMP->session(
-hostname => shift || $server,
-community => shift || 'public',
);
if (!defined($session)) {
printf("Session ERROR: %s. \n", $error);
exit 1;
}
my $result = $session->get_request(
-varbindlist => [$id] );
if (!defined($result)) {
printf("Result ERROR: %s. $result, $id\n", $session->error);
$session->close;
exit 1;
}
printf("Input octets for host '%s' is %s\n",
$session->hostname, $result->{$id}
);
$session->close;
# exit 0;
}
###################33
# Main Code
#######################333
getdata("gbssun","public",
#getdata();
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Thanks