SNMP :: Simple. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Ian Langworth
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~ian/
SNMP :: Simple. ű×
SNMP :: Simple. ¼³¸í
SNMP¸¦ »ç¿ëÇÒ ¶§ÀÇ ¹Ù·Î °¡±â SNMP :: SimpleÀº SNMP.Instead·Î ¹Ýº¹Àû ÀÎ Á¤º¸ °Ë»ö ÀÛ¾÷À» ¼öÇà ÇÒ ¶§ ¹Ù·Î °¡±â¸¦ Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. SNMP¸¦ »ç¿ëÇϽʽÿÀ. $ vars = new snmp :: varlist (, , ,); My ($ light_status, $ light_color, $ light_desc) = $ s-> getNext ($ vars); $ S -> {ERRORSTR} ÀÎ °æ¿ì $ S -> {ERRORSTR}; while (! $ s -> {errorstr} ¹× $$ vars eq "prtconsoleontime") {Ǫ½Ã @ {$ data {light}}, {status => ($ light_status? 0 : 1), »ö»ó => snmp :: mapenum ($$ vars -> ű×, $ light_color), ¼³¸í => $ light_desc,}; ($ light_status, $ light_color, $ light_desc) = $ s-> getNext ($ vars); } ... ´ç½ÅÀº ÀÌ°ÍÀ» ÇÒ ¼ö ÀÖ½À´Ï´Ù : snmp :: simple; $ data {lights} = $ s-> get_named_table (status => 'prtconsoleontime', color => 'prtconsolecolor', name => 'prtconsoledescription',); snmp :: simple; $ name = $ s-> get ( 'sysname'); # sysname.0 $ location = $ s-> get ( 'syslocation'); @Array = $ S-> get_list ( 'hrprinterstatus'); $ arrayref = $ s-> get_list ( 'hrprinterstatus'); @list_of_lists = $ S-> get_table (qw (prtconsonontime prtconsolor prtconsoledescription)); @list_of_hashes = $ s-> get_named_table (name => 'prtinputdescription', media => 'prtinputmedianame', status => 'prtinputstatus', ·¹º§ => 'prtinputCurrentLevel', max => 'prtinputmaxcapacity';); ¿ä±¸ »çÇ× : ¡¤ Perl.
SNMP :: Simple. °ü·Ã ¼ÒÇÁÆ®¿þ¾î