getopt :: ¿ø´õ ºê¶ó

¸®ÇÁÆ® ¹× °³º° ¸í·É ÁÙ ¿É¼Ç
Áö±Ý ´Ù¿î·Îµå

getopt :: ¿ø´õ ºê¶ó ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Rich Paul
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~rpaul/

getopt :: ¿ø´õ ºê¶ó ű×


getopt :: ¿ø´õ ºê¶ó ¼³¸í

¸®ÇÁÆ® ¹× ºÐ¸® ¸í·É ÁÙ ¿É¼Ç getopt :: ¿ø´õ ºê¶ó´Â ¸í·É ÁÙ ¿É¼ÇÀ» µé¾î ¿Ã¸®°í ºÐ¸®ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ½ÇÁ¦·Î Perl¿¡ ½© ½ºÅ©¸³Æ®¸¦ Æ÷Æ®Çϱ⠽±±â ¶§¹®¿¡ Á¸ÀçÇÕ´Ï´Ù. GetOpt ÇÁ·Î±×·¥Ã³·³ ÀÛµ¿ÇÕ´Ï´Ù. ÀÌ»óÇÏ°Ô, ½ÇÁ¦·Î À̸§ÀÌ ºÙÀº ¸ðµâ Áß Çϳª°¡ ¾ø½À´Ï´Ù. (ÀϺδ C ÇÔ¼öó·³ ÇൿÇÏÁö¸¸) ´ÙÀ½ ¼ø¼­´Â ´ç½ÅÀÇ args¸¦ Àß°Ô À߸³´Ï´Ù. ´ç½Å¿¡°Ô ¶È¹Ù·Î : ½Ã³ñ½Ã½º´Â getopt :: wonderbra¸¦ »ç¿ëÇÕ´Ï´Ù. @argv = getOpt ( 'opts : - :', @argv); Sub Help () {Àμâ "¾µ¸ð¾ø´Â µµ¿ò¸» ¸Þ½ÃÁö"; }; ÇÏÀ§ ¹öÀü () {uselless "uselseless ¹öÀü ¸Þ½ÃÁö"; }; while (($ _ = shift) ne '-') {if (/ ^ - o $ /) {$ OPT_O ++} ELSIF (/ ^ - p $ /) {$ OPT_P ++} ELSIF (/ ^ - t $ /) {$ OPT_T ++} ELSIF (/ ^ - s $ /) {Ǫ½Ã (@OPT_S, SHIFT); } ELSIF (/ ^ - /) {Ǫ½Ã (@OPT_LONG, $ _); } else {die '³ª´Â grok -', $ _; }} "-o ÁÖ¾îÁø $ opt_o ½Ã°£"Àμâ $ opt_o; $ OPT_P ÀÎ °æ¿ì "-P ÁÖ¾îÁø $ opt_p times"Àμâ; $ OPT_TÀÇ °æ¿ì "-T ÁÖ¾îÁø $ OPT_T ½Ã°£"Àμâ; @OPT_S¿¡ ´ëÇÑ arg $ _ "·Î Á¦°øµÈ"-s) Àμâ; @OPT_LONG¿¡ ´ëÇØ "LONG OPT $ _ ÁÖ¾îÁø"Àμâ Àμâ; Àμâ ""; @argv¿¡ ´ëÇÑ "param : $ _"Àμâ; ¿ä±¸ »çÇ× : ¡¤ Perl. ¡¤ À×¾î ¡¤ ¼öÃâ¾÷ÀÚ


getopt :: ¿ø´õ ºê¶ó °ü·Ã ¼ÒÇÁÆ®¿þ¾î