| ÅؽºÆ® :: ÇÁ·ÒÇÁÆ® ±ÕÇü ÅؽºÆ® :: ±ÕÇü ÀâÈù ÅؽºÆ®¸¦ ÃßÀûÇÏ´Â CLI ÇÁ·ÒÇÁÆ®¸¦ ÀÛ¼ºÇÏ´Â µ¥ ÇÊ¿äÇÑ ÇÁ·ÒÇÁÆ® µµ¿ò¸». |
Áö±Ý ´Ù¿î·Îµå |
ÅؽºÆ® :: ÇÁ·ÒÇÁÆ® ±ÕÇü ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Jeffrey Goff
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~jgoff/Text-PromptBalanced-0.02/PromptBalanced.pm
ÅؽºÆ® :: ÇÁ·ÒÇÁÆ® ±ÕÇü ű×
ÅؽºÆ® :: ÇÁ·ÒÇÁÆ® ±ÕÇü ¼³¸í
ÅؽºÆ® :: ±ÕÇü ÀâÈù ÅؽºÆ®¸¦ ÃßÀûÇÏ´Â CLI¸¦ ¸¸µå´Â CLI ¸¸µé±â¿¡¼ ÇÁ·ÒÇÁÆ®¸¦ Áö¿øÇÕ´Ï´Ù. ÅؽºÆ® :: ±ÕÇü ÀâÈù text¸¦ ÃßÀûÇÏ´Â CLI ÇÁ·ÒÇÁÆ®¸¦ ¸¸µå´Â ÇÁ·ÒÇÁÆ® µµ¿ò¸». ÅؽºÆ® ÅؽºÆ® :: ÇÁ·ÒÇÁÆ® QW (Balance_Factory)¸¦ »ç¿ëÇϽʽÿÀ. ($ »óÅÂ, $ Àܾ×) = ¹ë·±½º _Factory (String => {type => 'Toggle', open => '' '}, paren => {type =>'±ÕÇü ÀâÈù ', ¿±â =>'( ', ´Ý±â => ')', Ignore_In => 'String'}, comment => {type => 'eol', open => ';', ignore_in => 'string'}, À̽ºÄÉÀÌÇÁ => {type => 'excrepe', open => '\'}); µ¿¾È () {my $ cur_balance = $ ÀÜ¾× -> ($ _); if ($ state-> {string} == 1) {Àμâ q } elsif ($ state -> {paren}> 0) {Àμâ QQ } elsif ($ cur_balance <0) {character $ cur_balance "} {print q }}} : ¡¤ Perl.
ÅؽºÆ® :: ÇÁ·ÒÇÁÆ® ±ÕÇü °ü·Ã ¼ÒÇÁÆ®¿þ¾î