| UMLS :: Senserelate. °¨°¢ ¼¼Æ® ´Ü¾î °¨Áö ¾Ë°í¸®ÁòÀ» ±¸ÇöÇÏ´Â Perl ¸ðµâÀÇ ¼Ò¼Û |
Áö±Ý ´Ù¿î·Îµå |
UMLS :: Senserelate. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Bridget McInnes
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~btmcinnes/
UMLS :: Senserelate. ű×
UMLS :: Senserelate. ¼³¸í
UMLS :: Senserelate´Â UMLS :: À¯»ç¼º Package¿¡¼ ÀÇ¹Ì ·ÐÀû À¯»ç¼º°ú °ü·Ã¼º ÃøÁ¤À» »ç¿ëÇÏ¿© Ç¥Àû ´Ü¾î °¨Áö »è°¨À» ¼öÇàÇÏ´Â Targetword ¸ðµâ·Î ±¸¼ºµÈ Perl ¸ðµâÀÔ´Ï´Ù. Synopsis »ç¿ë UMLS :: Interface; UMLS :: À¯»ç¼ºÀ» »ç¿ëÇϽʽÿÀ. UMLS :: Senserelate :: Targetword; # ÃʱâÈ ¿É¼Ç Çؽà ¹× UMLS My % Option_hash = (); ³» $ UMLS = ""; ³» $ meas = ""; ³» $ senserelate = ""; ³» % params = (); # ÀÎÅÍÆäÀ̽º ¼³Á¤ $ option_hash { "t"} = 1; $ option_hash { "Realtime"} = 1; $ UMLS = UMLS :: ÀÎÅÍÆäÀ̽º -> »õ (\ % option_hash); # ÃøÁ¤ °ª »ç¿ë UMLS :: À¯»ç¼º :: °æ·Î; $ meas = umls :: À¯»ç¼º :: °æ·Î -> »õ ($ UMLS); # set senserelate $ params { "ÃøÁ¤"} = "°æ·Î"; $ senserelate = umls :: senserelate :: targetword-> new ($ UMLS, $ meas, \ % params); # Ÿ°Ù ´Ü¾î¸¦ ¼³Á¤ÇϽʽÿÀ $ TW = "Á¶Á¤"; # ´ë»ó ´Ü¾î°¡ ű׿¡ÀÖ´Â ÀνºÅϽº¸¦ Á¦°øÇϽʽÿÀ. $ ÀνºÅϽº = "Æò±Õ ¾Æ·¡º¸°í µÈ ÁÖÁ¦ÀÇ 53 %"; $ ÀνºÅϽº. = "°áÈ¥ Á¶Á¤";; MY ($ hashref) = $ senererelate-> Assignsense ($ TW, $ ÀνºÅϽº, Undef); (Á¤ÀÇ µÈ $ hashref) {print "´ë»ó ´Ü¾î ($ TW)°¡ ´ÙÀ½°ú °°Àº Àǹ̸¦ ÇÒ´ç ¹Þ¾Ò½À´Ï´Ù. \ n"; foreach ³» $ sense (Å° % {$ hashref} Á¤·Ä) {Àμâ "$ sense \ n"; }} else {print "´ë»ó ´Ü¾î ($ tw)´Â °¨°¢ÀÌ ¾ø½À´Ï´Ù. \ n"; } Á¦Ç°ÀÇ È¨ÆäÀÌÁö
UMLS :: Senserelate. °ü·Ã ¼ÒÇÁÆ®¿þ¾î