Viewing file:  snmpwalkh.pl (2.23 KB) -rw-r--r--
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
#
# File_________: snmpwalkh_test.pl
# Date_________: 12.11.2001
# Author_______: Laurent Girod / Philip Morris Products S.A. / Neuchatel / Switzerland
# Description__: Example of uses of the new snmpwalkhash function in SNMP_util
# With snmpwalkhash, you can customize as you like your
# results, in a hash of hashes,
# by oid names, oid numbers, instances, like:
# $hash{$host}{$name}{$inst} = $value;
# $hash{$host}{$oid}{$inst} = $value;
# $hash{$name}{$inst} = $value;
# $hash{$oid}{$inst} = $value;
# $hash{$oid.'.'.$inst} = $value;
# $hash{$inst} = $value;
# ...
# Needed_______: ActiveState Perl 620 from www.perl.com
# Modifications:
#
########################################################################################################
use BER;
use SNMP_util "0.90";
$BER::pretty_print_timeticks = 0; # Uptime in absolute value
my $host = shift @ARGV || &usage;
my $community = shift @ARGV || 'public';
&usage if $#ARGV >= 0;
$host = "$community\@$host" if !($host =~ /\@/);
#
# Example 1:
#
my $oid_name = 'system';
print "\nCollecting [$oid_name]\n";
@ret = &snmpwalk($host, $oid_name);
foreach $desc (@ret) {
($oid, $desc) = split(':', $desc, 2);
print "$oid = $desc\n";
}
#
# Example 2: snmpwalk
#
my @oid_names = ('ifType', 'ifMtu', 'ifSpeed', 'ifPhysAddress',);
print "\nCollecting ";
map { print "[$_]\t" } @oid_names;
print "\n";
@ret = &snmpwalk($host, @oid_names);
foreach $desc (@ret) {
($oid, $desc) = split(':', $desc, 2);
print "$oid = $desc\n";
}
#
# Example 3: snmpwalkhash
#
my %ret_hash = &snmpwalkhash($host, \&my_simple_hash, @oid_names);
foreach $oid (keys %ret_hash)
{
foreach my $inst (sort { $a <=> $b } keys %{$ret_hash{$oid}})
{
printf("%15s %3s = %s\n", $oid, $inst, $ret_hash{$oid}{$inst});
}
}
sub my_simple_hash
{
my ($h_ref, $host, $name, $oid, $inst, $value) = @_;
$inst =~ s/^\.+//;
if ($name =~/ifPhysAddress/)
{
my $mac = '';
map { $mac .= sprintf("%02X",$_) } unpack "CCCCCC", $value;
$value = $mac;
}
$h_ref->{$name}->{$inst} = $value;
}
sub usage
{
die "usage: $0 hostname [community]";
}
|