| Æ÷µå :: Æļ POD :: Parser´Â Æ÷µå ÇÊÅÍ¿Í ¹ø¿ª±â¸¦ ¸¸µå´Â ±âº» Perl Ŭ·¡½ºÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Æ÷µå :: Æļ ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Brad Appleton
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~marekr/Pod-Parser-1.35/lib/Pod/Parser.pm
Æ÷µå :: Æļ ű×
Æ÷µå :: Æļ ¼³¸í
POD :: Parser´Â Æ÷µå ÇÊÅÍ¿Í ¹ø¿ª°¡¸¦ ¸¸µé±âÀ§ÇÑ ±âº» Perl Ŭ·¡½ºÀÔ´Ï´Ù. POD :: Parser´Â Æ÷µå ÇÊÅÍ ¹× Translator¸¦ »ý¼ºÇϱâÀ§ÇÑ ±âº» Perl Ŭ·¡½ºÀÔ´Ï´Ù. Pod :: Parser¸¦ »ç¿ëÇÕ´Ï´Ù. myparser ÆÐÅ°Áö; @isa = qw (Æ÷µå :: Æļ); ÇÏÀ§ ¸í·É {my ($ parser, $ ¸í·É, $ ´Ü¶ô, $ line_num) = @_; ## ¸í·É°ú ÅؽºÆ®¸¦ Çؼ®ÇÕ´Ï´Ù. »ùÇà ÀÛ¾÷Àº ´ÙÀ½°ú °°½À´Ï´Ù : ($ Command EQ 'head1') {...} ELSIF ($ Command EQ 'HEAD2') {...} ## ... ´Ù¸¥ ¸í·É ¹× ±× ÀÛ¾÷ ³» $ OUT_FH = $ PARSER- > output_handle (); MY $ Expansion = $ Parser-> InterPolate ($ ´Ü¶ô, $ line_num); $ OUT_FH $ È®ÀåÀ» ÀμâÇϽʽÿÀ. } Sub Abbatim {My ($ Æļ, $ ´Ü¶ô, $ line_num) = @_; ## Form Form vebatim ´Ü¶ô; »ùÇà ÀÛ¾÷Àº ´ÙÀ½°ú °°½À´Ï´Ù : My $ OUT_FH = $ PARSER-> output_handle (); $ OUT_FH $ ´Ü¶ôÀ» ÀμâÇϽʽÿÀ. } Sub TextBlock {My ($ Æļ, $ ´Ü¶ô, $ line_num) = @_; ##ÀÌ ÅؽºÆ® ºí·ÏÀ» ¹ø¿ª / Æ÷¸ËÇÕ´Ï´Ù. »ùÇà ÀÛ¾÷Àº ´ÙÀ½°ú °°½À´Ï´Ù : My $ OUT_FH = $ PARSER-> output_handle (); MY $ Expansion = $ Parser-> InterPolate ($ ´Ü¶ô, $ line_num); $ OUT_FH $ È®ÀåÀ» ÀμâÇϽʽÿÀ. } sub interior_sequence {My ($ Æļ, $ seq_command, $ seq_argument) = @_; ## ³»ºÎ ½ÃÄö½º È®Àå; »ùÇà ÀÛ¾÷Àº ´ÙÀ½°ú °°½À´Ï´Ù. "* $ SEQ_ARGUMENGE *"($ SEQ_COMMAND EQ 'B'); "`$ seq_argument '"($ seq_command eq'c '); "_ $ {seq_argument} _ '"($ SEQ_COMMAND EQ'i ')À» ¹ÝȯÇÕ´Ï´Ù. ## ... ´Ù¸¥ ½ÃÄö½º ¸í·É ¹× °á°ú ÅؽºÆ®} ÆÐÅ°Áö ¸ÞÀÎ; ## Parser °´Ã¼¸¦ ¸¸µé°í ¸í·É ÁÙ¿¡ ##ÀÌ ¿´´Â ÆÄÀÏÀ» ±¸¹® ºÐ¼®ÇÕ´Ï´Ù (ÆÄÀÏÀÌ ¾øÀ¸¸é stdin »ç¿ë). $ parser = »õ·Î¿î myParser (); $ parser-> parse_from_filehandle (* stdin) if (@argv == 0); for (@argv) {$ parser-> parse_from_file ($ _); } ¿ä±¸ »çÇ× : ¡¤ Perl.
Æ÷µå :: Æļ °ü·Ã ¼ÒÇÁÆ®¿þ¾î