| ÅؽºÆ® :: ºñ±³ TEXT :: COMPARNÀº ¾ð¾î ¹Î°¨ÇÑ ÅؽºÆ® ºñ±³¸¦À§ÇÑ PERLÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
ÅؽºÆ® :: ºñ±³ ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Marcus Thiesen and Serguei Trouchelle
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~stro/
ÅؽºÆ® :: ºñ±³ ű×
ÅؽºÆ® :: ºñ±³ ¼³¸í
text :: Compare´Â ¾ð¾î ¹Î°¨ÇÑ ÅؽºÆ® ºñ±³¸¦À§ÇÑ PerlÀÔ´Ï´Ù. text :: companÀº ¾ð¾î¿¡ ¹Î°¨ÇÑ ÅؽºÆ® ºñ±³¸¦À§ÇÑ perlÀÔ´Ï´Ù. ½Ä ³ëÇÁ°¡ ÅؽºÆ® :: ºñ±³; # Áï¼® ¹æ¹ý : MY $ TC = »õ ÅؽºÆ® :: ºñ±³ (memoize => 1, strip_html => 0); MY $ SIM = $ TC-> À¯»ç¼º ($ text_a, $ text_b); # $ SIMÀº 0°ú 1 # µÎ ¹ø° ¹æ¹ý (ij½Ã ¸ñ·Ï)ÀÔ´Ï´Ù. MY $ TC2 = »õ ÅؽºÆ® :: ºñ±³ (strip_html => 1); # ¾ð¾î ¹Î°¨ÇÑ ´Ü¾î Çؽà : My % wordHash = $ TC2-> get_words ($ some_text); $ TC2-> FIRST_LIST (% WordHash); Foreach My $ LIST (@WORDLIST) {#LIST´Â HASHREF $ TC2-> second_list ($ list)ÀÔ´Ï´Ù. $ TC2-> À¯»ç¼º () Àμâ; } # ¼¼ ¹ø° ¹æ¹ý (ij½Ã ÅؽºÆ®) My $ TC3 = »õ ÅؽºÆ® :: ºñ±³ (); $ TC3-> ù ¹ø° ($ some_text); $ TC3-> µÎ ¹ø° ($ some_other_text); $ TC3-> À¯»çµµ¸¦ ÀμâÇϽʽÿÀ. ÅؽºÆ® :: ºñ±³´Â ¾ð¾î Á¾¼Ó ½ºÅé ¿öµå¸¦ »ç¿ëÇÏ´Â º¤ÅÍ ºñ±³¸¦ ±â¹ÝÀ¸·Î °í¼Ó ÅؽºÆ® ºñ±³ µµ±¸¸¦ ÀÛ¼ºÇÏ·Á°í ½ÃµµÇÕ´Ï´Ù. ÅؽºÆ® :: ºñ±³ »ç¿ë Lingua :: ÁÖ¾îÁø ÅؽºÆ®ÀÇ ¾ð¾î¸¦ ãÀ¸·Á¸é ½Äº° ÇÑ ´ÙÀ½ Lingua :: StopWords¸¦ »ç¿ëÇÏ¿© ÁÖ¾îÁø ¾ð¾îÀÇ StopWords¸¦ »ç¿ëÇÏ¿© Linuga :: StemÀ» »ç¿ëÇÏ¿© ´Ü¾î Áٱ⸦ ã½À´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
ÅؽºÆ® :: ºñ±³ °ü·Ã ¼ÒÇÁÆ®¿þ¾î