Lingua :: LinkParser :: MatchPath.

¸µÅ© ´ÙÀ̾î±×·¥¿¡¼­ °æ·Î ÀÏÄ¡
Áö±Ý ´Ù¿î·Îµå

Lingua :: LinkParser :: MatchPath. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Yung-chung Lin
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~xern/

Lingua :: LinkParser :: MatchPath. ű×


Lingua :: LinkParser :: MatchPath. ¼³¸í

¸µÅ© ´ÙÀ̾î±×·¥¿¡¼­ °æ·Î¸¦ ÀÏÄ¡½Ãŵ´Ï´Ù Lingua :: LinkParser :: MatchPath´Â Lingua :: LinkParser¿¡¼­ »ý¼º µÈ ¸µÅ°Áö ´ÙÀ̾î±×·¥¿¡ ¸µÅ°Áö °æ·Î°¡ Á¸ÀçÇÏ´ÂÁö È®ÀÎÇÏ´Â µ¥ µµ¿òÀ̵Ǵ Perl ¸ðµâÀÔ´Ï´Ù. ¿µ¾î Texts.Synopsis # µð¹ö±ë ¸Þ½ÃÁö¸¦ º¸·Á¸é ÇØ°áÀ» ÇØÁÖ¼¼¿ä. # $ lingua :: linkparser :: matchpath :: debug = 1; Lingua :: LinkParser¸¦ »ç¿ëÇϽʽÿÀ. MY $ PARSER = NEW LINGUA :: LinkParser; # ÃʱâÈ­ My $ o = Lingua :: LinkParser :: MatchPath-> New (parser => $ parser); MY $ O = Lingua :: LinkParser :: MatchPath-> new (); # ÁÖ¾îÁø ÅÛÇø´¿¡ µû¶ó Á¤À¯¸Å¸¦ ¸¸µì´Ï´Ù. foreach my $ t (@templates) {$ o-> create_matcher ($ t); } My $ Sestence = $ Parser-> create_sentence ($ text); # ÀÏÄ¡Çϱ⠽ÃÀÛ (@ {$ o-> matcher}) {Àμâ $ _-> ÅÛÇø´, $ /; if ($ _-> ($ sestence)) {print "ÃßÃâ :", join (q /, /, $ m-> Ç׸ñ (0, 1)), $ /; }} ¿ä±¸ »çÇ× : ¡¤ Perl.


Lingua :: LinkParser :: MatchPath. °ü·Ã ¼ÒÇÁÆ®¿þ¾î