| ÆéŸÀ̵å :: Pubmed. ÆéƼµå :: Pubmed´Â Medline Á¦Ç° ÃÊ·Ï¿¡¼ ÆéŸÀÌµå ¼¿À» ÃßÃâ ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
ÆéŸÀ̵å :: Pubmed. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Timur Shtatland
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~shtatland/Peptide-Pubmed-1.02/lib/Peptide/Pubmed.pm
ÆéŸÀ̵å :: Pubmed. ű×
ÆéŸÀ̵å :: Pubmed. ¼³¸í
ÆéŸÀ̵å :: Pubmed´Â Medline Á¦Ç° ÃÊ·Ï¿¡¼ ÆéŸÀÌµå ¼¿À» ÃßÃâ ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. ÆéŸÀ̵å :: Pubmed´Â Medline Á¦Ç° Ã߻󿡼 ÆéŸÀÌµå ¼¿À» ÃßÃâ ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. ½Ä ³ëÇÁ »ç¿ë ÆéƼµå :: Pubmed; $ parser = ÆéŸÀ̵å :: pubmed-> new; $ in = {pmid => q , ÀúÀÚ => Q , Àú³Î => Q , Á¦¸ñ => q , Ãß»ó => Q , ¸Þ½¬ => Q , ÈÇÐ => Q ,}; $ parser-> parse_abstract ($ in); # 1 ¹®ÀÚ ±âÈ£·Î ÆéŸÀÌµå ½ÃÄö½º¸¦ ¾òÀ¸½Ê½Ã¿À (# °áÇÕ µÈ ´Ü¾î / Ãß»ó Á¡¼ö°¡ ÀÓ°è °ª ÀÌ»óÀÎ ¸ðµç ´Ü¾î ¼±Åà : # wordabstscore> = wordabstscoremin) : @seqs = $ parser-> get_seqs; "@seqsn"À» ÀμâÇϽʽÿÀ; # Àμâ : 'Eyhhynk RGD'Examples # À§¿Í µ¿ÀÏÇÏ°Ô, ÀÓ°è °ªÀ» ¸í½Ã ÀûÀ¸·Î ¼³Á¤ÇϽʽÿÀ : $ Parser-> WordAbstscoremin (0.4); @seqs = $ Æļ -> get_seqs; # ´õ ¸¹Àº ÆéŸÀÌµå ¼¿À» ¾òÀ¸·Á¸é ³·Àº ÀÓ°è °ªÀ» ¼³Á¤ÇÕ´Ï´Ù (±×·¯³ª # ´õ À߸øµÈ ±àÁ¤Àû ÀÎ ±àÁ¤Àû ÀÎ ºñ¿ëÀ¸·Î) $ Parser-> WordAbstscoremin (-1); @seqs = $ Æļ -> get_seqs; "@seqsn"À» ÀμâÇϽʽÿÀ; # Àμâ : 'Eyhhynk RGD Acccgtna Vegfri'# Àç¼³Á¤ ÀÓ°è °ª µÚ·Î : $ Parser-> WordAbstscoremin (0.4); # Ãß»ó¿¡ ´ëÇÑ ´õ ¸¹Àº µ¥ÀÌÅ͸¦ ¾òÀ¸½Ê½Ã¿À : $ abst = $ parser-> get_abst; "$ ABST -> {abstscore} n"À» ÀμâÇϽʽÿÀ. # Ãß»ó Á¡¼ö, °£°Ý Àμâ "$ abst -> {abstmtext} n"; # 'ÆéŸÀÌµå ½ÃÄö½º Eyhhynk¿Í Arg-Gly-ASP, # ±×·¯³ª AccCgtna ¶Ç´Â VegFri'¸¦ Ç¥½ÃÇÕ´Ï´Ù. # ÆéŸÀÌµå ½ÃÄö½º ¿Ü¿¡µµ ´Ü¾î¿¡ ´ëÇÑ ´õ ¸¹Àº µ¥ÀÌÅ͸¦ ¾òÀ¸½Ê½Ã¿À : @Words = $ Parser-> get_words; $ Word (@Words) {0,1] °£°Ý Àμâ "$ ¿öµå -> {WordAbstScore} n"; # arch-gly-asp, 'Àμâ "$ word -> {wordorig} n"À» ÀμâÇϽʽÿÀ. # 1 ±ÛÀÚ ±âÈ£·Î ÆéŸÀÌµå ¼¿, ¿¹¸¦ µé¾î 'RGD'Àμâ "$ ´Ü¾î -> {wordsequence} n"; } # Çʼö ÀÔ·Â Çʵ尡 ¾ø½À´Ï´Ù. ÀÌ°ÍÀº ¶ÇÇÑ ÀÛµ¿ÇÏÁö¸¸ ³·Àº Á¡¼ö¸¦ ÁÙ ¼ö ÀÖ½À´Ï´Ù. $ = {Abstract => Q ,}; $ parser-> parse_abstract ($ in); @Words = $ Parser-> get_words; # ÆéƼµå ½ÃÄö½º°¡ ºó ÀԷ¿¡¼ ¹ß°ßµÇÁö ¾Ê½À´Ï´Ù : $ in = undef; $ parser-> parse_abstract ($ in); @Words = $ Parser-> get_words; ¿ä±¸ »çÇ× : ¡¤ Perl.
ÆéŸÀ̵å :: Pubmed. °ü·Ã ¼ÒÇÁÆ®¿þ¾î