SNMP :: Simple.

SNMP¸¦ »ç¿ëÇÒ ¶§ÀÇ ¹Ù·Î °¡±â
Áö±Ý ´Ù¿î·Îµå

SNMP :: Simple. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î

filterunit.

´Â ¸í·É Çà ÇÁ·Î±×·¥¿¡ ´ëÇØ ´ÜÀ§ Å×½ºÆ®¸¦ °í¾È ÇÒ ¼öÀÖ°ÔÇÕ´Ï´Ù. ...

125

´Ù¿î·Îµå