| °í¸£´Ù OPT´Â ¸í·É Çà ¿É¼Ç°ú ±× °ªÀ» °¡Á®¿Ã ¼ö ÀÖ½À´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
°í¸£´Ù ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Balaji Ramasubramanian
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~balajiram/Opt-0.1.1/Opt.pm
°í¸£´Ù ű×
°í¸£´Ù ¼³¸í
OPT´Â ¸í·É Çà ¿É¼Ç°ú ÇØ´ç °ªÀ» °¡Á®¿Ã ¼ö ÀÖ½À´Ï´Ù. OPT ¸í·É Çà ¿É¼Ç ¹× ÇØ´ç °ªÀ» °¡Á®¿Ã ¼ö ÀÖ½À´Ï´Ù.ÀÌ ¸ðµâÀ» »ç¿ëÇÏ¸é ¸í·É ÁÙ ¿É¼Ç°ú ÇØ´ç °ªÀ» ÀÐÀ» ¼ö ÀÖ½À´Ï´Ù.ÀÌ ¸ðµâÀº ¸í·É ÁÙ ÀÎÅÍÆäÀ̽º¸¦ ó¸® ÇÒ ¼ö ÀÖ½À´Ï´Ù. ¾ö°ÝÇÑ »ç¿ë; MY ($ error, $ opt1, $ opt2, $ opt3, @info) = opt :: getopt ( "- opt1 : b, -opt2 : s = string2, -opt3 : s", "req 1, xor 23" , @argv); ¿É¼ÇÀ» ÁöÁ¤ÇÒ ¶§ ($ ERROR) {Àμâ "¿À·ù°¡ _ µÊ."; "; } else {### {$ opt1 (vief, value) {### opt2ÀÇ ±âº»°ª °ªÀÌ ±âº»°ª ÀÎ °æ¿ì "if ($ info == 1) {### } ELSIF ($ info == 3) {### °ªÀÌ ±âº» ÀμⰡ ¾Æ´Ñ °æ¿ì "±âº»°ªÀÌ ÁöÁ¤µÇÁö ¾ÊÀº °ªÀÌ ÁöÁ¤µÇÁö ¾ÊÀº °æ¿ì"$ OPT2 "; }}} ¿ä±¸ »çÇ× : ¡¤ Perl.
°í¸£´Ù °ü·Ã ¼ÒÇÁÆ®¿þ¾î