| Lingua :: LinkParser :: MatchPath. ¸µÅ© ´ÙÀ̾î±×·¥¿¡¼ °æ·Î ÀÏÄ¡ |
Áö±Ý ´Ù¿î·Îµå |
Lingua :: LinkParser :: MatchPath. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î