| getopt :: param. getopt :: param param () ½ºÅ¸ÀÏ opt Çڵ鸵À» Æ÷ÇÔÇÕ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
getopt :: param. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~dmuey/
getopt :: param. ű×
getopt :: param. ¼³¸í
getOpt :: paramÀº param () ½ºÅ¸ÀÏ opt Çڵ鸵À» Æ÷ÇÔÇÕ´Ï´Ù. getOpt :: paramÀº param () style opt handling.synopsis¸¦ »ç¿ëÇÕ´Ï´Ù. getopt :: param; MY $ PRM = getopt :: param-> new (); PRINT_HELP_AND_EXIT () $ PRM-> get_param ( 'µµ¿ò¸»'); # --Help, 'help_coderef'new () Å° $ log-> µð¹ö±× ( "½ÃÀÛ : $$")¸¦ ÂüÁ¶ÇϽʽÿÀ. $ PRM-> get_param ( 'debug'); # --debug Àμâ "½ÃÀÛ ÇÁ·Î¼¼½º ... N"$ PRM-> get_param ( 'verbose'); # --verbose do_this (); do_that () the_is_needed () || $ PRM-> get_param ( 'force'); # -force do_Theother () $ prm-> get_param ( 'theother') ÀÎ °æ¿ìÀÌ ÀÛ¾÷À» ½ÇÇàÇϽʽÿÀ. # - ´Ù¸¥ Àμâ ... ... ¿Ï·á! N "$ PRM-> get_param ( 'verbose'); # --verbose $ log-> µð¹ö±× "³¡ : $$". ½Ã°£ ()) $ PRM-> get_param ( 'µð¹ö±×'); # --debug $ lang-> ''}, $ PRM-> param ( '»ç¿ëÀÚ'À̸§), $ prm-> param ( 'À̸§) ')); # --user = dan -name = "dan muey"¹è¿À» ±¸¹® ºÐ¼®ÇÏ°í µ¥ÀÌÅÍ¿¡ ´ëÇÑ CGI¿Í °°Àº param ÀÎÅÍÆäÀ̽º¸¦ Á¦°øÇÕ´Ï´Ù. ±×·± ´ÙÀ½ CGI ÀÎÅÍÆäÀ̽º¿Í CLI ÀÎÅÍÆäÀ̽º°¡ÀÖ´Â Apps¸¦ »ç¿ëÇÏ¿© STUFF.Examples : OPT : --force = 1 URI Equiv : Force = 1 OPT : --force = uri equiv : Force = OPT : - Æ÷Æ÷ URI EPIV : FORCE = - FORCE OPT : --Force = Hello Uri Equiv : Force = Hello Opt : --force = "Hello World"URI Equiv : Force = Hello + World Opt : --force = --force = b uri equiv : Èû = afoce = brequirements : ¡¤ perl ¡¤ class :: std ¡¤ class :: std :: utils ¡¤ locale :: maketext :: ÀÇ»ç ¿ä±¸ »çÇ× : ¡¤ Perl. ¡¤ Ŭ·¡½º :: STD. ¡¤ Ŭ·¡½º :: STD :: Utils. ¡¤ ·ÎÄÌ :: Maketext :: ÀÇ»ç
getopt :: param. °ü·Ã ¼ÒÇÁÆ®¿þ¾î