Æ÷µå :: Æļ­

POD :: Parser´Â Æ÷µå ÇÊÅÍ¿Í ¹ø¿ª±â¸¦ ¸¸µå´Â ±âº» Perl Ŭ·¡½ºÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

Æ÷µå :: Æļ­ ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • 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.


Æ÷µå :: Æļ­ °ü·Ã ¼ÒÇÁÆ®¿þ¾î