| Getopt :: µµ¿òÀ̵Ǿú½À´Ï´Ù getOpt :: À¯¿ëÇÑ °ÍÀº ÅëÇÕ ¿É¼Ç Çؽà / µµ¿ò¸» ¸Þ½ÃÁöÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Getopt :: µµ¿òÀ̵Ǿú½À´Ï´Ù ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Eric L. Wilhelm
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~ewilhelm/Date-Piece-v0.0.2/lib/Date/Piece.pm
Getopt :: µµ¿òÀ̵Ǿú½À´Ï´Ù ű×
Getopt :: µµ¿òÀ̵Ǿú½À´Ï´Ù ¼³¸í
getOpt :: À¯¿ëÇÑ ÅëÇÕ ¿É¼Ç Çؽà / µµ¿ò¸» ¸Þ½ÃÁöÀÔ´Ï´Ù. GetOpt :: À¯¿ëÇÑ °ÍÀº ÅëÇÕ ¿É¼Ç Çؽà / µµ¿ò¸» ¸Þ½ÃÁöÀÔ´Ï´Ù .StateThis ¸ðµâÀº ¾ÆÁ÷ °³¹ß ÁßÀÌÁö¸¸ CPAN¿¡ °Ô½ÃµÇ¾î ÀÖÁö¸¸ CPAN¿¡ ÀÇÁ¸ÇÏ´Â Äڵ带 ¸¸Á·½ÃÅ°´Â °ÍÀÔ´Ï´Ù. ÀÎÅÍÆäÀ̽º´Â ÇâÈÄ ¹öÀü¿¡¼ º¯°æ µÉ ¼ö ÀÖÀ¸¸ç ÀϺΠ±â´ÉÀÌ ¾ÆÁ÷ ¿Ï·áµÇÁö ¾Ê¾Ò½À´Ï´Ù .SynopsistHis ¸ðµâÀº µµ¿ò¸» ¸Þ½ÃÁö¸¦ getOpt :: Long ¿É¼Ç »ç¾çÀ¸·Î ÅëÇÕÇÏ´Â ¸Þ¼Òµå¸¦ Á¦°øÇÕ´Ï´Ù. ÀÌ·¸°ÔÇÏ¸é ¹®¼È ¹× ¼±¾ðÀ» ÇÑ °÷À¸·Î ¼öÁýÇÏ°í ¿Â¶óÀÎ µµ¿ò¸» ¸Þ½ÃÁöÀÇ ¿É¼ÇÀÇ ±âº»°ªÀ» ¸í½ÃÇÏ´Â Perl Äڵ带 È°¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù (´ÜÀÏ Áø½Ç ¿ø¸®¸¦ È°¿ëÇÏ´Â µ¥ µµ¿òÀ̵˴ϴÙ.). ¶ÇÇÑ DWIM ¹æ¹ýÀ» Á¦°øÇÕ´Ï´Ù (GET ) ½ºÅ©¸³Æ®¿¡¼ Ç¥ÁØ ¿À·ù È®ÀÎ Äڵ带 ÁÙÀÏ ¼ö ÀÖ½À´Ï´Ù. óÀ½ºÎÅÍ ¹Ùº¸ °°Àº ÄÚµå ºí·ÏÀ» Á¦°ÅÇÏ´Â Æí¸®ÇÑ »ç¿ë·® () ¹æ¹ýÀÌ ÀÖ½À´Ï´Ù. #! / usr / bin / perl »ç¿ë °æ°í; ¾ö°ÝÇÑ »ç¿ë; getopt :: À¯¿ëÇÑ; ³» $ var1 = "±âº»°ª"; ³» $ req_arg; # ÀÌ°ÍÀ» '¿ì¸®'¶Ç´Â $ main :: verbose ¿ì¸®ÀÇ $ verbose = 0; # ¸ðµç ¿É¼ÇÀº »ý¼ºÀÚ¿¡ Àü´ÞµÇ¾î¾ßÇÕ´Ï´Ù ... ³» $ Hopt = GetOpt :: µµ¿òÀÌ -> »õ (»ç¿ë => È£ÃâÀÚ ', , [ 'a arg', $ req_arg, '', 'Çʼö Àμö', '+ Verbose', '+ Help',); # kneres (¿À·ù È®ÀÎ) $ hopt-> get (); $ req_arg ¶Ç´Â ($ req_arg = shift); # usage () ¸Þ½ÃÁö°¡ 0ÀÌ ¾Æ´Ñ Á¾·á ÄÚµå $ req_arg ¶Ç´Â $ hopt-> »ç¿ë ( '´©¶ô µÈ argument'); $ verbose ¹× °æ°í "¹°°ÇÀ» ³º´Â"; # Áö±ÝÀº ¹°°ÇÀ» ... ¿ä±¸ »çÇ× : ¡¤ Perl ¿ä±¸ »çÇ× : ¡¤ Perl.
Getopt :: µµ¿òÀ̵Ǿú½À´Ï´Ù °ü·Ã ¼ÒÇÁÆ®¿þ¾î