¹ÙÀεå :: Config :: Parser. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://www.bodgit-n-scarper.com/
¹ÙÀεå :: Config :: Parser. ű×
¹ÙÀεå :: Config :: Parser. ¼³¸í
±¸¹® ºÐ¼® ÆÄÀÏ ¹ÙÀεå :: Config :: Parser´Â ±¸¹® ºÐ¼®À» »ç¿ëÇÏ¿© ¹ÙÀεå V8 ¹× V9ÀÇ ±¸¼º ÆÄÀÏ ±¸¹®¿¡ °¡º¿î Æļ¸¦ Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. :: Recexescent Grammar.It´Â ¹ÙÀεù :: conf_parser¿¡ ºñ½ÁÇÑ Á¤¸Æ¿¡ ÀÖ½À´Ï´Ù. ±×·¯³ª Áö½Ã¹®¿¡ ´ëÇÑ Áö½ÄÀÌ ¾øÀ¸¹Ç·Î »õ ÁöħÀÌ Ãß°¡µÇ¸é ¾÷µ¥ÀÌÆ® ÇÒ ÇÊ¿ä°¡ ¾øÀ¸¹Ç·Î BIND ±¸¼º ÆÄÀÏÀ» ³í¸®Àû chunks.synopsis·Î ²ø¾î ¿Ã¸®´Â ¹æ¹ýÀº ´Ü¼øÈ÷ ¹ÙÀεå :: config :: parser¸¦ »ç¿ëÇÕ´Ï´Ù. ...¿¡ # parser ¸¸µé±â my $ parser = »õ ¹ÙÀεå :: config :: parser; ³» $ endent = 0; # Äݹé Çڵ鷯 ¼³Á¤ $ parser-> set_open_block_handler (sub {print ""x $ gent, join ( "", @_) "{ "$ endent ++;}); $ parser-> set_close_block_handler (sub {$ endent-- Àμâ" "x $ endent,"}; ";}); $ parser-> set_statement_handler (sub {print" "x $ indent, join (" ", @_)"; ";}); # $ parser-> parse_file ÆÄÀÏÀ» ±¸¹® ºÐ¼®ÇÕ´Ï´Ù ("named.conf "); ¿ä±¸ »çÇ× : ¡¤ Perl.
¹ÙÀεå :: Config :: Parser. °ü·Ã ¼ÒÇÁÆ®¿þ¾î