¾Û :: cmd :: Æ©Å丮¾ó

App :: CMD :: TutorialÀº App :: CMD¸¦ ½ÃÀÛÇÏ´Â µ¥ µµ¿òÀ̵Ǵ Perl ¸ðµâÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

¾Û :: cmd :: Æ©Å丮¾ó ¼øÀ§ ¹× ¿ä¾à

±¤°í

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

¾Û :: cmd :: Æ©Å丮¾ó ű×


¾Û :: cmd :: Æ©Å丮¾ó ¼³¸í

app :: cmd :: TutorialÀº App :: CMD¸¦ ½ÃÀÛÇÏ´Â µ¥ µµ¿òÀ̵Ǵ Perl ¸ðµâÀÔ´Ï´Ù. app :: cmd :: TutorialÀº ¾ÛÀ» ½ÃÀÛÇÏ´Â µ¥ µµ¿òÀ̵Ǵ Perl ¸ðµâÀÔ´Ï´Ù. :: cmd.app :: cmd´Â Á¤±³ÇÑ ¸í·É ÁÙ ÇÁ·Î±×·¥À» ¾µ ¼ö ÀÖµµ·Ï °£´ÜÇÏ°Ô ¸¸µé ¼ö ÀÖµµ·Ï ¼³°èµÈ µµ±¸ ÁýÇÕÀÔ´Ï´Ù. ¿©·¯ ºÎ¼Ó ¸í·ÉÀÌÀÖ´Â ¸í·ÉÀ» ó¸®ÇÏ°í »ç¿ë ÅؽºÆ®¸¦ »ý¼ºÇÏ°í ¿É¼ÇÀÇ À¯È¿¼ºÀ» °Ë»çÇϸç Å×½ºÆ®°¡ °£ÆíÇÑ Å¬·¡½º·Î ÇÁ·Î±×·¥À» ÀÛ¼ºÇÒ ¼ö ÀÖ½À´Ï´Ù. App :: CMD ±â¹Ý ÀÀ¿ë ÇÁ·Î±×·¥Àº ¼¼ °¡Áö ÁÖ¿ä ºÎÇ°À¸·Î ±¸¼ºµË´Ï´Ù. ½ºÅ©¸³Æ®, ÀÀ¿ë ÇÁ·Î±×·¥ Ŭ·¡½º ¹× ¸í·É Ŭ·¡½ºÀÔ´Ï´Ù. ½ºÅ©¸³Æ®´Â ¸í·É ÁÙ¿¡¼­ ½ÇÁ¦ ½ÇÇà ÆÄÀÏÀÌ ½ÇÇàµË´Ï´Ù. ÀϹÝÀûÀ¸·Î ¸î ÁÙ·Î ±¸¼º µÉ ¼ö ÀÖ½À´Ï´Ù. #! / usr / bin / perl yourApp :: cmd; yourApp :: cmd-> new-> ½ÇÇà; Àμö ±¸¹® ºÐ¼®, À¯È¿¼º °Ë»ç ¹× ÆÄ°ßÀÇ ¸ðµç ÀÛ¾÷Àº ÀÀ¿ë ÇÁ·Î±×·¥ Ŭ·¡½º°¡ °ü¸®ÇÕ´Ï´Ù. ÀÀ¿ë ÇÁ·Î±×·¥ Ŭ·¡½º´Â ¶ÇÇÑ ²Ï °£´Ü ÇÒ ¼öµµ ÀÖ°í ´ÙÀ½°ú °°ÀÌ º¸ÀÏ ¼ö ÀÖ½À´Ï´Ù : ÆÐÅ°Áö yourApp :: cmd; ±âº» QW (app :: cmd)¸¦ »ç¿ëÇϽʽÿÀ. 1; ½ÇÁ¦·ÎÀÌ µÎ °¡Áö¸¦ ÇÔ²² ±¼¸± ¼ö ÀÖÀ¸¹Ç·Î ½ºÅ©¸³Æ®¿¡¼­ ¸ðµç °ÍÀ» À¯ÁöÇÒ ¼ö ÀÖ½À´Ï´Ù. ¿øÇÏ´Â °æ¿ì #! / usr / bin / perlÀ» »ç¿ëÇϽʽÿÀ. °æ°í¸¦ »ç¿ëÇϽʽÿÀ. ÆÐÅ°Áö YourApp :: cmd; ±âº» QW (app :: cmd)¸¦ »ç¿ëÇϽʽÿÀ. yourApp :: cmd-> ½ÇÇà; # Ŭ·¡½º¿¡¼­ È£Ãâ -> ½ÇÇà ¾Ï½Ã -> ´º½º »õ ÀÀ¿ë ÇÁ·Î±×·¥ ÀνºÅϽº°¡ ¸¸µé¾îÁö¸é¼­ ãÀ» ¼öÀÖ´Â ¸ðµç ¸í·É Ŭ·¡½º¸¦·ÎµåÇÏ¿© ÀÚ½ÅÀÇ À̸§À¸·Î ¸í·É ³×ÀÓ ½ºÆäÀ̽º¿¡¼­ ¸ðµâÀ» ã½À´Ï´Ù. ¿¹¸¦ µé¾î, À§ÀÇ ½º ´ÏÆê¿¡¼­ yourApp :: cmd´Â yourp :: cmd :: Command.We·Î ½ÃÀÛÇÏ´Â À̸§À» °¡Áø ¸ðµâÀ» ãÀ» ¼ö ÀÖ½À´Ï´Ù. package yourapp :: cmd :: ¸í·É : : ÃʱâÈ­; ¾ö°ÝÇÑ »ç¿ë; °æ°í¸¦ »ç¿ëÇϽʽÿÀ. ±âº» QW (app :: cmd :: Command); ÀÌÁ¦ »ç¿ëÀÚ °¡ÀÌ ¸í·ÉÀ» ½ÇÇàÇÒ ¼ö ÀÖÁö¸¸ ¿À·ù°¡ ¹ß»ýÇÒ ¼ö ÀÖ½À´Ï´Ù. $ yourcmd yourp :: cmd :: mode :: Initialize°¡ Çʼö ¸Þ¼Òµå¸¦ INITIALIZEÇÏÁö ¾Ê½À´Ï´Ù. 'Á˼ÛÇÕ´Ï´Ù! ¿ì¸®°¡ ½ÇÇàÇÒ ¶§ÇØ¾ß ÇÒ ÀÏÀ» ¸í·É Ŭ·¡½º¿¡ ¸»ÇÏÁö ¾Ê¾Ò±â ¶§¹®¿¡ ÀÌ°ÍÀº Á×½À´Ï´Ù. ÀÌ°ÍÀº ½±½À´Ï´Ù. ¸î °¡Áö Äڵ带 Ãß°¡ÇϽʽÿÀ : ÇÏÀ§ ½ÇÇà {My ($ self, $ opt, $ args) = @_; Àμâ "¸ðµç °ÍÀÌ ÃʱâÈ­µÇ¾ú½À´Ï´Ù. (½ÇÁ¦·Î.) n"; } ÀÌÁ¦´Â ÀÛµ¿ÇÕ´Ï´Ù. $ yourcmd ¸ðµç °ÍÀ» ÃʱâÈ­Çß½À´Ï´Ù. (½ÇÁ¦·Î) ½ÇÇà ¹æ¹ý¿¡ ´ëÇÑ Àμö´Â ¸í·É ÁÙ¿¡¼­ Àü´Þ µÈ ¿É¼Ç°ú ¿ÞÂÊÀÇ ÀμöÀÔ´Ï´Ù. ¿Ã¹Ù¸£°Ô ±¸¼ºµÈ ¸í·É Ŭ·¡½º¸¦ »ç¿ëÇÏ¸é ´ÙÀ½ È£Ãâ : $ yourcmd Àç¼³Á¤ -ZB - new-seed xyzxy foo.db bar.dbmight °á°ú ´ÙÀ½ µ¥ÀÌÅÍÀÇ °á°ú : $ opt = {zero => 1, no_backup => 1, new_seed = > 'xyzzy',}; $ args = ; Àμö´Â getopt :: long :: ¼³¸í ÀûÀ¸·Î 󸮵˴ϴÙ. Àμö ÇÁ·Î¼¼½º¸¦ »ç¿ëÀÚ Á¤ÀÇÇÏ·Á¸é ¸í·É Ŭ·¡½º´Â ¸î °¡Áö ¸Þ¼Òµå¸¦ ±¸ÇöÇÒ ¼ö ÀÖ½À´Ï´Ù. USAGE_DESC »ç¿ë Çü½Ä ¹®ÀÚ¿­À» Á¦°øÇÕ´Ï´Ù. OPT_SPEC ¿É¼Ç »ç¾ç ¸ñ·ÏÀ» Á¦°øÇÕ´Ï´Ù. validate_args´Â getopt :: long :: ¼³¸íÀ» ¼öÇà ÇÑ ÈÄ ½ÇÇàµË´Ï´Ù. óÀ½ µÎ °¡Áö ¹æ¹ýÀº GLDÀÇ DESCRIES_OPTIONS ·çƾ¿¡ Àü´Þ µÈ ±¸¼ºÀ» Á¦°øÇÕ´Ï´Ù. ¸í·É Ŭ·¡½º¸¦ Çâ»ó ½ÃÅ°·Á¸é ´ÙÀ½ Äڵ带 Ãß°¡ ÇÒ ¼ö ÀÖ½À´Ï´Ù. sub usage_desc { "yourcmd % o "return ( }],); } Sub Validate_args {My ($ self, $ opt, $ args) = @_; # @ $ args°¡ ¾Æ´Ï¸é @ $ args°¡ ¾Æ´Ï¶ó¸é ¿É¼ÇÀ» ÃÊ°úÇÏ´Â Àû¾îµµ ÇϳªÀÇ Àμö°¡ ÇÊ¿äÇÕ´Ï´Ù. } ¿ä±¸ »çÇ× : ¡¤ Perl.


¾Û :: cmd :: Æ©Å丮¾ó °ü·Ã ¼ÒÇÁÆ®¿þ¾î