| ÀζóÀÎ :: Interp. ½±°Ô Çؼ® µÈ ¾ð¾î ¿ë ÀζóÀÎ ¸ðµâ ¸¸µé±â |
Áö±Ý ´Ù¿î·Îµå |
ÀζóÀÎ :: Interp. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Cal Henderson
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~iamcal/
ÀζóÀÎ :: Interp. ű×
ÀζóÀÎ :: Interp. ¼³¸í
Çؼ® µÈ ¾ð¾î¿¡ ´ëÇÑ ÀζóÀÎ ¸ðµâÀ» ½±°Ô ¸¸µé ¼ö ÀÖ½À´Ï´Ù ÀζóÀÎ :: Interp´Â Çؼ® µÈ ¾ð¾î·Î ÀζóÀÎ ¸ðµâÀ» ½±°Ô ¸¸µé ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. ±×°ÍÀº ´ç½ÅÀ» À§ÇØ ¸ðµç ÁöÀúºÐÇÑ ÀζóÀÎ ³»ºÎ¸¦ ó¸®ÇÏ°í °£´ÜÇÑ Ä³¸¯ÅÍ IO Layer.Synopsis ÆÐÅ°Áö ÀζóÀÎ :: foo; ÀζóÀÎ ÇÊ¿ä; ÀζóÀÎ :: Interp; @isa = qw (ÀζóÀÎ ÀζóÀÎ :: Interp); ÇÏÀ§ ·¹Áö½ºÅÍ {return {language => foo ', aliases => ['foo ','foo ', type =>'trampreted ', suffix => foo',}; } sub do_load {my ($ funcs, $ code) = @_; ($ code = m / ÇÔ¼ö (s +) ([a-z0-9 _ +) (s *) {(. *?)} / isg) {ÀζóÀÎ :: ÀÎÅÍÇÁ :: add_func ($ funcs, $ 2, $ 4); }} ÇÏÀ§·Îµå {Inline :: Interp :: Load (@_); } sub do_run {my ($ ÄÚµå, $ io) = @_; # $ Äڵ带 Æò°¡ÇϽʽÿÀ. # char ÀζóÀÎ :: Interp :: Output_Char ($ io, 'a')¸¦ Ãâ·ÂÇϽʽÿÀ. # char ÀÔ·Â = ÀζóÀÎ :: Interp :: input_char ($ IO); } ¿ä±¸ »çÇ× : ¡¤ Perl.
ÀζóÀÎ :: Interp. °ü·Ã ¼ÒÇÁÆ®¿þ¾î