| getopt :: popt. getOpt :: POPT´Â POPT (3) ¶óÀ̺귯¸®¿¡ ´ëÇÑ Perl ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
getopt :: popt. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~jamesb/Getopt-Popt-0.02/Popt.pm
getopt :: popt. ű×
getopt :: popt. ¼³¸í
GetOpt :: POPT´Â POPT (3) ¶óÀ̺귯¸®¿¡ ´ëÇÑ Perl ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. getOpt :: POPT´Â POPT (3) LibraryÀÇ Perl ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. ½Ä ³ëÇÁ°¡ GetOpt :: Popt QW (: ALL)¸¦ »ç¿ëÇÕ´Ï´Ù. # ¿É¼Ç ¹è¿ ¼³Á¤ @ ¿É¼Ç @ ¿É¼Ç, »õ·Î¿î getopt :: popt :: ¿É¼Ç (longname => "long", shortname => "l", arginfo => popt_arg_string, arg => $ qux, val => $ val); # ¶Ç´Â °ÔÀ¸¸¥ °æ¿ì GetOpt :: Popt´Â »õ·Î¿î () Ǫ½Ã @Options, {shortName => @ arginfo => popt_arg_none, arg => $ equx, val => 's'} ...¿¡ # "val"Àº ´ÜÀÏ ¹®ÀÚ ¶Ç´Â Á¤¼ö°¡ µÉ ¼ö ÀÖ½À´Ï´Ù. Ǫ½Ã @Options, {longname => xor ', arginfo => popt_arg_val | POPT_ARGFLAG_XOR, arg => $ quux, val => 0xBADF00D # Á¤¼ö}, ÀÚµ¿ µµ¿ò¸» / »ç¿ë ¸Þ½ÃÁö (--Help ¶Ç´Â - - --usage) : Ǫ½Ã @Options, popt_autohelp; $ popt = new getopt : : POPT (name => $ alias_name, argv => @argv, option => @Options, Ç÷¡±× => $ Ç÷¡±×); ¼³Á¤ ¿É¼Ç º°Äª : # ÀϺΠº°ÄªÀ»·Îµå $ POPT-> READDEFAULTCONFIG (); $ POPT-> ReadConfigFile ( "/ path / to / aliases"); # ÀÚ½ÅÀÇ º°Äª Ãß°¡ $ alias = new getopt :: popt :: alias (longname => "taco", argv => ); $ POPT-> ADDALIAS ($ alias, $ alias_flags); C : # ·çÇÁ¿¡¼ C : # ·çÇÁ¸¦ »ç¿ëÇÏ¿© ¿É¼ÇÀ» »ç¿ëÇÏ¿© ¿É¼ÇÀ» »ç¿ëÇÏ¿© ((($ rc = $ popt-> getnextopt ())> 0) {... # arg val $ bork = $ popt-> getoptarg ()¸¦ ¾ò´Â ÇÑ °¡Áö ¹æ¹ý; ... # Àç·á ÀϺΠARGS $ POPT-> STUPHARGS (QW (-q-q)); # $ POPT-> RESETCONTEXT ()¸¦ ½ÃÀÛÇÕ´Ï´Ù. ...} C : $ errstr = $ POPT-> Sterror ($ rc)·Î ¿À·ù¸¦ ó¸®ÇÕ´Ï´Ù. $ badopt = $ popt-> badoption ($ rc, $ badopt_flags); ¶Ç´Â »õ·Î¿î ¼öÁØÀÇ ¹æ¹ýÀ» ½ÃµµÇϽʽÿÀ : eval {while (defined (defined (popt-> getnextoptchar ())) {^^^^ - Âü°í! # $ valÀº scalar :: util :: dualvar : if ($ val eq "c") {# getArgs ()
getopt :: popt. °ü·Ã ¼ÒÇÁÆ®¿þ¾î