SNMP :: 정보 SNMP를 통해 네트워크 장치 및 MIB에 대한 객체 지향 Perl 인터페이스
지금 다운로드

SNMP :: 정보 순위 및 요약

SNMP :: 정보 태그

회로망 Perl 모듈 펄 기기 Perl 인터페이스 네트워크 장치

SNMP :: 정보 설명

SNMP를 통해 네트워크 장치 및 MIB에 대한 객체 지향 Perl 인터페이스 SNMP :: INFO는 SNMP.SYNOPSIS를 통해 네트워크 장치 및 MIB에 대한 객체 지향 PERL 인터페이스입니다. SNMP :: INFO; My $ Info = New SNMP :: INFO (# 자동 검색 - 자세한 디바이스 클래스 autospecify => 1, debug => 1, # 나머지는 snmp :: session desthost => '라우터', 커뮤니티 => 'public'에 전달됩니다. , 버전 => 2) 또는 "device.n에 연결할 수 없습니다"; $ $ err = $ info-> error (); DIE "SNMP 커뮤니티 또는 버전이 잘못된 장치에 연결됩니다. $ ERRN"$ ERRN; $ name = $ info-> name (); $ class = $ info-> class (); 인쇄 "snmp :: info이 장치 클래스 : $ classn"을 사용하고 있습니다. # 포트에 대한 양면 인쇄 = $ Interfaces = $ info-> 인터페이스 (); 내 $ i_duplex = $ info-> i_duplex (); # CDP 이웃 정보 가져 오기 MY $ C_IF = $ INFO-> C_IF (); 내 $ C_IP = $ INFO-> C_IP (); MY $ C_PORT = $ INFO-> C_PORT (); # 포트 당 데이터를 인쇄하십시오. 내 $ IID (키 % $ 인터페이스) {My $ duplex = $ i_duplex -> {$ IID}; # SNMP IID가 아닌 물리적 포트 이름을 인쇄하십시오. $ PORT = $ 인터페이스 -> {$ IID}; "$ 포트 :"인쇄; 정의 된 $ DUPLEX 인 경우 "$ DUPLEX 양면 인쇄"를 인쇄하십시오. # CDP 테이블에는 인터페이스 테이블과 다른 테이블 항목이 있습니다. # C_IF를 사용하여 CDP 테이블에서 인터페이스 테이블까지지도를 가져옵니다. 내 % C_MAP = 역 백량 $ C_IF; MY $ C_KEY = $ C_MAP {$ IID}; (정의 된 $ c_key) {print "nn"; 다음; } My $ Neignel_IP = $ C_IP -> {$ C_KEY}; 내 $ Neignel_port = $ C_PORT -> {$ C_KEY}; $ Neignel_IP / $ Neignel_portn "에 연결된"$ Neignel_IP / $ Neignel_portn "을 인쇄하십시오. "n"을 인쇄하십시오; } 요구 사항 : · Perl.

SNMP :: 정보 관련 소프트웨어