¹ÙÀÌ¿À :: DAS.

ºÐ»ê ÁÖ¼® ½Ã½ºÅÛ ÀÎÅÍÆäÀ̽º
Áö±Ý ´Ù¿î·Îµå

¹ÙÀÌ¿À :: DAS. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î