ÀζóÀÎ :: Interp.

½±°Ô Çؼ® µÈ ¾ð¾î ¿ë ÀζóÀÎ ¸ðµâ ¸¸µé±â
Áö±Ý ´Ù¿î·Îµå

ÀζóÀÎ :: Interp. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î