¹ÙÀÌ¿À :: DAS.ºÐ»ê ÁÖ¼® ½Ã½ºÅÛ ÀÎÅÍÆäÀ̽º | |
Áö±Ý ´Ù¿î·Îµå |
¹ÙÀÌ¿À :: DAS. ¼øÀ§ ¹× ¿ä¾à
±¤°í
- ƯÇã:
- Perl Artistic License
- °¡°Ý:
- FREE
- °Ô½ÃÀÚ À̸§:
- Lincoln D. Stein
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~lds/
¹ÙÀÌ¿À :: DAS. ű×
¹ÙÀÌ¿À :: DAS. ¼³¸í
ºÐ»ê ÁÖ¼® ½Ã½ºÅÛ¿¡ ´ëÇÑ ÀÎÅÍÆäÀ̽º BIO :: DAS´Â DAS (Distributed Annotation System) Çü½Ä ¹öÀü 1.5¿¡¼ µ¥ÀÌÅ͸¦ ³»º¸³»´Â °Ô³ð ½ÃÄö½Ì ¹× ÁÖ¼® µ¥ÀÌÅͺ£À̽º¿¡ ´ëÇÑ ¾×¼¼½º¸¦ Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ÀÌ ½Ã½ºÅÛÀº http://biodas.org¿¡¼ ¼³¸íÇÕ´Ï´Ù. ¾ÏȣȵÇÁö ¾ÊÀº (http :) ¹× SSL ¾ÏÈ£È µÈ (https :) DAS ¼¹ö°¡ ¸ðµÎ Áö¿øµË´Ï´Ù. (SSLÀ» ½ÇÇàÇÏ·Á¸é io :: socket :: ssl ¹× net :: ssleay°¡ ¼³Ä¡µÇ¾î ÀÖ¾î¾ßÇÕ´Ï´Ù. ½Ä ³ëÇÁ°¡ ¹ÙÀÌ¿À :: DAS; # serial api my $ das = bio :: das-> new (-source => http://www.wormbase.org/db/das ', -dsn =>'elegans ', -Aggregators => ); ³» $ segment = $ das-> ¼¼±×¸ÕÆ® ( 'chr1'); ³» @features = $ segment-> ±â´É; ³» $ dna = $ segment-> DNA; # º´·Ä API # 5 ÃÊÀÇ ½Ã°£ ÃÊ°ú ÇÔ²² »õ·Î¿î DAS ¿¡ÀÌÀüÆ®¸¦ ¸¸µì´Ï´Ù. My $ DAS = BIO :: DAS-> NEW (5); # ¿úº£À̽º¿¡¼ÀÇ ±â´ÉÀ» °¡Á® ¿À´Â Wormbase i @request = $ das-> ±â´É (-dsn => : //dev.wormbase.org/db/das/elegans ',], -segment => ); $ request (@Request) {if ($ Request-> is_success) {Àμâ " ", $ Request-> DSN"ÀÇ ÀÀ´ä " "; ³» $ °á°ú = $ ¿äû -> °á°ú; ³» $ ¼¼±×¸ÕÆ® (Å° % $ °á°ú) {my @features = @ {$ °á°ú -> {$ segment}}; Àμâ" ", °¡ÀÔ ', $ segment, @Ư¡," ";}} else {reerror warn $ request-> dsn,": ":": $ request-> ¿À·ù " ";}} # ¶È°°Àº ÀÏÀÌÁö¸¸ ÄݹéÀ» »ç¿ëÇϽʽÿÀ : $ das-> ±â´É (-dsn => http://www.wormbase.org/db/das/elegans ','http : //ev.wormbase .org / db / das / elegans ', -segment => , -callback => sub {My $ feature = shift; ³» $ segment = $ ±â´É -> ¼¼±×¸ÕÆ®; My ($ start, $ end) = ($ feature-> start, $ feature-> end); "$ segment => $ feature ($ start, $ end) Àμâ ";}); ¿ä±¸ »çÇ× : ¡¤ Perl.
¹ÙÀÌ¿À :: DAS. °ü·Ã ¼ÒÇÁÆ®¿þ¾î