| Term :: Shell :: Multicmd. ¼Ð ÀÎÅÍÆäÀ̽ºÀÇ Áßø µÈ ¸í·É Æ®¸® |
Áö±Ý ´Ù¿î·Îµå |
Term :: Shell :: Multicmd. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~jezra/
Term :: Shell :: Multicmd. ű×
Term :: Shell :: Multicmd. ¼³¸í
Term :: Shell :: MultiCMD´Â ½© ÀÎÅÍÆäÀ̽º¿¡ Áßø µÈ ¸í·É Æ®¸®¸¦ Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. 'example /'µð·ºÅ丮ÀÇ Directory, example / synopsis.pl »ç¿ë ¿ë¾î :: ½© :: Multicmd; my @command_tree = ( 'multi ¿öµå ¸í·É'=> {help => "help title", opts => 'force repeat = i', exec => sub {my ($ o, % p) = @_; Àμâ "$ p {arg0}´Â Force = $ p {Force}¿Í Reept = $ p {¹Ýº¹} \ n"},}, '´ÙÁß ´Ü¾î ´Ù¸¥ ¸í·É'=> {help => '´Ù¸¥ µµ¿ò¸» Á¦¸ñÀ» µ½½À´Ï´Ù. ¸ÖƼ ¶óÀÎÀ» °¡Áö°í ÀÖÀ¸¸é ÇϳªÀÇ ¼±ÇüÀÌ ÇÊ¿äÇÒ ¶§ ÃÖ»óÀ§°¡ »ç¿ëµË´Ï´Ù. ', comp => sub {#ÀÌ ÇÔ¼ö´Â ³» ($ o, $ word, $ line, $ start, $) Àμö¿¡¼ È÷Æ® ÅÇ ¿Ï¼ºÀ» »ç¿ëÇÒ ¶§ È£ÃâµË´Ï´Ù. op, $ opts) = @ _ ... ¹º°¡¸¦ÇÏ°í qw / a ¿Ï·á ´Ü¾î ¸ñ·Ï /}, exec => sub {my ($ o, % p) = @_; "$ p { arg0}ÀÌ \ n "},}, '¸ÖƼ ´Ü¾î ¼¼ ¹ø° ¸í·É'=> {help => '¶È°°Àº ¾ÆÀ̵ð¾î', comp => ¸ñ·Ïµµ exec => subµµ °¡´ÉÇÕ´Ï´Ù. {My ($ o, % p) = @_; Àμâ "$ p {arg0}°¡ È£ÃâµÇ¾ú½À´Ï´Ù. Àç¹Ì ÀÖÁö ¾Ê½À´Ï±î? \ n"},}, '¸ÖƼ ´Ü¾î'=> 'ÀÏ¹Ý µµ¿ò¸» Á¦¸ñÀ» Ãß°¡ ÇÒ ¼ö ÀÖ½À´Ï´Ù. °æ·Î ',); Term :: Shell :: MultiCMD -> new () -> Populate (@Command_Tree) -> ·çÇÁ; Àμâ "¸ðµç ¿Ï·á, ³ªÁß¿¡ \ N"À» ÂüÁ¶ÇϽʽÿÀ. Á¦Ç°ÀÇ È¨ÆäÀÌÁö
Term :: Shell :: Multicmd. °ü·Ã ¼ÒÇÁÆ®¿þ¾î