Changeset 275 for trunk/klask
- Timestamp:
- Sep 22, 2017, 7:32:44 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/klask
r274 r275 821 821 my ($snmp_session, $verbose) = @_; 822 822 823 my %vlan = (); # Hash vlan number => vlan name823 my %vlandb = (); # Hash vlan number => vlan name 824 824 825 825 my $research_index = $OID_NUMBER{'vlanName'}; # base OID … … 831 831 832 832 my $vlan_name = $snmp_session->var_bind_list->{$oid_current}; 833 my ($vlan_i ndex) = reverse split /\./, $oid_current; # last number833 my ($vlan_id) = reverse split /\./, $oid_current; # last number 834 834 printf "VLAN: %s => %s\n", $oid_current, $vlan_name if $verbose; 835 835 836 $vlan {$vlan_index} = $vlan_name;836 $vlandb{$vlan_id} = $vlan_name; 837 837 838 838 # prepare next loop item 839 839 @args = (-varbindlist => [$oid_current]); 840 840 } 841 return %vlan ;841 return %vlandb; 842 842 } 843 843 … … 2129 2129 2130 2130 print "VLAN_ID - VLAN_NAME # $sw_name\n"; 2131 for my $vlan id (keys %vlandb) {2132 printf "%7i - %s\n", $vlan id, $vlandb{$vlanid};2131 for my $vlan_id (keys %vlandb) { 2132 printf "%7i - %s\n", $vlan_id, $vlandb{$vlan_id}; 2133 2133 } 2134 2134 }
Note: See TracChangeset
for help on using the changeset viewer.