| getopt :: oo. getopt :: oo´Â °´Ã¼ ÁöÇâ ¸í·É ÁÙ ÆļÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
getopt :: oo. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Steven Smith
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~sjsmith/Getopt-OO-0.07/lib/Getopt/OO.pm
getopt :: oo. ű×
getopt :: oo. ¼³¸í
getOpt :: oo´Â °´Ã¼ ÁöÇâ ¸í·É ÁÙ ÆļÀÔ´Ï´Ù. getOpt :: oo´Â °´Ã¼ ÁöÇâ ¸í·É ÁÙ ÆļÀÔ´Ï´Ù. ª°í ±æ°í ¸ÖƼ (--x ... -) °ª ¿É¼ÇÀ» ó¸®ÇÕ´Ï´Ù. GetOpt :: OO ¸ðµâÀº ¶ÇÇÑ »ç¿ë¹ýÀÇ »ý¼ºÀ» ´Ü¼øÈÇÏ´Â ¿É¼Ç¿¡ ´ëÇÑ µµ¿ò¸»À» ÅëÇÕÇÕ´Ï´Ù .Snopsis »ç¿ë GetOpt :: OO QW (µð¹ö±× ÀÚ¼¼ÇÑ); My ($ handle) = getopt :: oo-> new (@argv, '-d'=> {help => 'µð¹ö±× Ãâ·ÂÀ» ÄѽʽÿÀ', Äݹé => ÇÏÀ§ {µð¹ö±× (1); 0},}, -o '=> {help =>'´Ù¸¥ ¿É¼Ç ','-f '=> {n_values => 1,},'- long '{ µµ¿ò¸» => '±ä ¿É¼Ç'}, '--multiple_'=> {help => , 'multi_value'= > 1, 'multiple = => 1, # ¸í·É ÁÙ¿¡¼ ÇÑ ¹ø ÀÌ»ó ÀϾ ¼ö ÀÖ½À´Ï´Ù.}, other_values => {help =>'file_1 ... file_n ', multi_value => 1,}, ¸ÖƼ _Value => 1,},); if ($ handle-> value ()) {µð¹ö±× ( "¸í·É ÁÙ¿¡ -d°¡ ÄÑÁ®ÀÖ´Â °æ¿ì Ãâ·Â"); if (my $ f = ÇÚµé -> °ª (-f)) {print "´Â -f value.n"À¸·Î $ f¸¦ ¾ò½À´Ï´Ù. }} else {print "¸í·É ÁÙ¿¡ ¿É¼ÇÀÌ ¾ø½À´Ï´Ù. line.n"; } getopt :: oo´Â ¸í·É ÁÙ Àμö¸¦ ÆĽÌÇÏ´Â °´Ã¼ ÁöÇâ µµ±¸ÀÔ´Ï´Ù. ÀÔ·Â Àμö¿¡ ´ëÇÑ ÂüÁ¶¸¦ ±â´ëÇÏ°í Perl Çؽø¦ »ç¿ëÇÏ¿© ¸í·É ÁÙ Àμö¸¦ ÆĽÌÇÏ´Â ¹æ¹ýÀ» ¼³¸íÇÕ´Ï´Ù. ±¸¹® ºÐ¼®À» ÅëÇØ, ¿ì¸®´Â ¿É¼ÇÀÌ ¹«¾ùÀ» ±â´ë ÇÏ´ÂÁö¸¦ ÀǹÌÇÕ´Ï´Ù. ¿ì¸®´Â ÇÊ¿ä¿¡ µû¶ó ¸í·É ÁÙ¿¡ °ªÀÌ ÀÖ´ÂÁö È®ÀÎÇÏ´Â °ÍÀ» ÀǹÌÇÕ´Ï´Ù. ¹ß½ÅÀÚ´Â ±×°¡ ¾Ë°íÀÖ´Â °ªÀÌ ÆÄÀÏÀÌ Á¸ÀçÇؾßÇÏ¸ç ¾µ ¼ö Àְųª ¾µ ¼ö Àְųª ¹¹µç°£¿¡ ¹«¾ð°¡ Àμö¸¦ »èÁ¦ÇÒ ¼ö ÀÖ´ÂÁö È®ÀÎÇؾßÇÕ´Ï´Ù. ¿É¼Ç ¹×ÀÌ ¿É¼Ç°ú °ü·ÃµÈ ¿É¼Ç ¹× °ªÀ» »èÁ¦ÇÒ ¼ö ÀÖ½À´Ï´Ù. Windows¿¡¼´Â ¿É¼ÇÀÌ '/'·Î ½ÃÀÛÇÏÁö¸¸ ¶§·Î´Â '-'·Î ½ÃÀÛÇÏÁö¸¸ UNIX¿¡¼´Â °ÅÀÇ º¸ÆíÀûÀ¸·Î '-'·Î ½ÃÀÛÇÕ´Ï´Ù. ÀÌ ¸ðµâ ¿É¼ÇÀº '-'·Î ½ÃÀÛÇÕ´Ï´Ù. ¿ì¸®´Â ªÀº ´ÜÀÏ Á¡¼± ¿É¼Ç°ú ±ä ÀÌÁß Á¡¼± ¿É¼ÇÀÇ µÎ °¡Áö À¯ÇüÀÇ ¿É¼ÇÀ» Áö¿øÇÕ´Ï´Ù.ÀÌ µÎ °¡Áö »çÀÌÀÇ Â÷ÀÌÁ¡ÀºÀÌ ¸ðµâÀ» »ç¿ëÇÏ¿© ªÀº ¿É¼ÇÀ» ´ÜÀÏ ¿É¼ÇÀ¸·Î °áÇÕ ÇÒ ¼ö ÀÖÁö¸¸ ±ä ¿É¼ÇÀº ÇÒ ¼ö ¾ø½À´Ï´Ù. ¿¹¸¦ µé¾î, ´ëºÎºÐÀÇ ´ëºÎºÐÀº -x -x -f ÆÄÀϷΠǥÇöÇÒ ¼öÀÖ´Â tar -xvf ÆÄÀÏ ¸í·É¿¡ Àͼ÷ÇÕ´Ï´Ù. ±ä ¿É¼ÇÀ» ÀÌ·± ½ÄÀ¸·Î °áÇÕ ÇÒ ¼ö ¾øÀ¸¹Ç·Î '--help'´Â Ç×»ó ÀÚüÀûÀ¸·Î¼¾ßÇÕ´Ï´Ù. ÀÔ·Â ÅÛÇø´Àº ¿É¼Ç À̸§À» Å°·Î ±â´ëÇÕ´Ï´Ù. ¿¹¸¦ µé¾î, °¡´ÉÇÑ ÇÑ ¸í·É ÁÙ ¿É¼ÇÀ¸·Î -XV --Hello¸¦ ±â´ëÇÏ°íÀÖ´Â °æ¿ì, ÅÛÇø´ ÇؽÃÀÇ Å°´Â -x, -v ¹× -hello°¡ µÉ °ÍÀÔ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
getopt :: oo. °ü·Ã ¼ÒÇÁÆ®¿þ¾î