| Nagios :: Plugin :: Getopt. NAGIOS :: Plugin :: GetOpt´Â Nagios Ç÷¯±×ÀÎÀ»À§ÇÑ Ç¥ÁØÈ µÈ Àμö 󸮸¦ Á¦°øÇÏ´Â OO Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Nagios :: Plugin :: Getopt. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~gavinc/File-DirCompare-0.3/DirCompare.pm
Nagios :: Plugin :: Getopt. ű×
Nagios :: Plugin :: Getopt. ¼³¸í
Nagios :: Plugin :: GetOpt´Â Nagios Ç÷¯±×ÀÎÀ»À§ÇÑ Ç¥ÁØÈ µÈ Àμö 󸮸¦ Á¦°øÇÏ´Â OO Perl ¸ðµâÀÔ´Ï´Ù. Nagios :: Plugin :: GetOpt´Â Nagios Plugins¿¡ ´ëÇÑ Ç¥ÁØÈ µÈ Àμö 󸮸¦ Á¦°øÇÏ´Â OO Perl ¸ðµâÀÔ´Ï´Ù. Synopsis »ç¿ë Nagios :: Plugin :: GetOpt; # Instantiate Object (»ç¿ë·® ¹× ¹öÀüÀº Çʼö) $ ng = nagios :: plugin :: getopt-> new (usage => "dew (% s -h -w -c", ¹öÀü => '0.01', URL => 'http://www.openfusion.com.au/labs/nagios/', blurb => 'ÀÌ Ç÷¯±×ÀÎÀº ´Ù¾çÇÑ °ÍµéÀ» Å×½ºÆ®ÇÕ´Ï´Ù.',); # add Àμö - ¸í¸í µÈ ¸Å°³ º¯¼ö (»ç¾ç ¹× µµ¿ò¸»Àº ÇʼöÀûÀÔ´Ï´Ù) $ NG-> arg (spec => 'critical | c = s', help => qq (-c, - --catical = Á¤¼ö = Á¤¼ö fobars´Â ¹«·á => 1, ±âº»°ª => 10,); # add Àμö - À§Ä¡ ¸Å°³ º¯¼ö - arg »ç¾ç, µµ¿ò¸» ÅؽºÆ®, # ±âº»°ª, Çʼö? (óÀ½ µÎ °¡Áö Çʼö) $ NG-> arg ( '°æ°í | W = S', QQ (-w, --warning = Á¤¼ö foobarsº¸´Ù ÀûÀº °æ¿ì °æ°í »óÅ°¡ÀÖ´Â Á¤¼ö Ãⱸ), 5, 1); # ±¸¹® ºÐ¼® Àμö ¹× ÇÁ·Î¼¼½º Ç¥ÁØ °Íµé (¿¹ : »ç¿ë, µµ¿ò¸», ¹öÀü) $ ng-> getopts; # ¸í¸í µÈ Á¢±ÙÀÚ¸¦ »ç¿ëÇϰųª ¶Ç´Â ÀÏ¹Ý get () Àμâ $ NG-> °æ°í¸¦ ÅëÇØ Àμö¿¡ ¾×¼¼½ºÇÕ´Ï´Ù. $ ng-> get ( 'critical') Àμâ ( 'Áß¿ä'); nagios :: plugin :: getopt´Â nagios Ç÷¯±×ÀÎÀ»À§ÇÑ Ç¥ÁØÈµÇ°í ´Ü¼øÈ µÈ Àμö 󸮸¦ Á¦°øÇÏ´Â OO Perl ¸ðµâÀÔ´Ï´Ù. ÀÌ°ÍÀº ¼öÀÇ Ç¥ÁØ Àμö ÀÚü (--help, --version, - usage, - timeout, --verbose, ªÀº ¾ç½Ä Æû)¸¦ ±¸ÇöÇÏ°í Ç¥ÁØÈ µÈ ³ªÁö¿À Ç÷¯±×ÀÎ µµ¿ò¸» Ãâ·ÂÀ» »ý¼ºÇÏ°í Ãß°¡ Àμö¸¦ ½±°Ô ÇÒ ¼ö ÀÖ½À´Ï´Ù ÇÑÁ¤µÈ. ¿ä±¸ »çÇ× : ¡¤ Perl.
Nagios :: Plugin :: Getopt. °ü·Ã ¼ÒÇÁÆ®¿þ¾î