BIO :: DB :: SEQFEATURE :: STORE :: DBI :: MySQL

BIO :: DB :: SEQFEATURE :: STORE :: DBI :: MySQLÀº BIO :: DB :: SeqFeature :: StoreÀÇ MySQL ±¸ÇöÀÌ´Ù.
Áö±Ý ´Ù¿î·Îµå

BIO :: DB :: SEQFEATURE :: STORE :: DBI :: MySQL ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • bioperl team
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~sendu/bioperl-1.5.2_102/Bio/DB/SeqFeature/Store/DBI/mysql.pm

BIO :: DB :: SEQFEATURE :: STORE :: DBI :: MySQL ű×


BIO :: DB :: SEQFEATURE :: STORE :: DBI :: MySQL ¼³¸í

BIO :: DB :: SEQFEATURE :: STORE :: DBI :: MySQLÀº BIO :: DB :: SeqFeature :: StoreÀÇ MySQL ±¸ÇöÀÔ´Ï´Ù. BIO :: DB :: SEQFEATURE :: STORE :: DBI :: MYSQLÀº BIO :: DB :: SEQFEATURE :: STEE.SYNOPSISÀÇ MYSQL ±¸ÇöÀÔ´Ï´Ù. BIO :: DB :: SEQFEATURE :: STORE; # ½ÃÄö½º µ¥ÀÌÅͺ£À̽º ¿­±â My $ db = bio :: db :: seqfeature :: store-> new (-adaptor => dbi :: mysql ", -dsn => dbi : mysql : test); # ¾îµò°¡¿¡¼­ ±â´ÉÀ» ¾òÀ¸½Ê½Ã¿À $ ±â´É = ¹ÙÀÌ¿À :: seqfeature :: ÀÏ¹Ý -> »õ·Î ¸¸µé±â (...); # $ DB-> ÀúÀå¼Ò ($ ±â´É)¸¦ ÀúÀåÇϰųª "ÀúÀåÇÒ ¼ö ¾ø¾ú½À´Ï´Ù!"; #ÀÌ ±â´ÉÀÇ ±âº» ID°¡ µ¥ÀÌÅͺ£À̽º¿¡ ±âº» ID #À» ³ªÅ¸ ³»±â À§ÇØ º¯°æµË´Ï´Ù ... My $ ID = $ feature-> primary_id; #ÀÌ ±â´ÉÀ» °¡Á® ¿À½Ê½Ã¿À $ F = $ DB-> °¡Á® ¿À±â ($ ID); # ±â´ÉÀ» º¯°æÇÏ°í $ F-> ½ÃÀÛ (100)À» ¾÷µ¥ÀÌÆ®ÇϽʽÿÀ. $ DB-> ¾÷µ¥ÀÌÆ® ($ F) ¶Ç´Â DIE "¾÷µ¥ÀÌÆ® ÇÒ ¼ö ¾ø½À´Ï´Ù!"; # Searching ... # ... ID by @features = $ DB-> fetch_many (@list_of_ids); # ... name @ features = $ db-> get_features_by_name ( 'zk909'); # ... alias @ features = $ DB-> get_features_by_alias ( 'SMA-3'); # ... @ features = $ DB-> get_features_by_name ( 'À¯ÀüÀÚ'); # ... À§Ä¡ @Features = $ DB-> get_features_by_location (-seq_id => 'chr1', - start => 4000, -end => 600000); # ... ¼Ó¼º @Features = $ DB-> get_features_by_Attribute ({description => protein kinase '}) # ... GFF "Âü°í"Çʵå @Result_List = $ DB-> search_notes ('kinase '); # ... ¼±ÅñâÀÇ ÀÓÀÇ·Î @Features = $ DB-> ±â´É (-name => $ name, -type => $ types, -syp_id => $ seqid, -start => $ start, -end => $ end, - attributes => $ ¼Ó¼º); # ... iterator »ç¿ë My $ iterator = $ DB-> get_seq_stream (-name => $ name, -type => $ types, -syp_id => $ seqid, -start => $ start, -end => $ ³¡, - attributes => $ ¼Ó¼º); while (my $ feature = $ iterator-> next_seq) {# ±â´É} # ... ƯÁ¤ ¿µ¿ªÀ¸·Î °Ë»öÀ» ƯÁ¤ ¿µ¿ªÀ¸·Î Á¦ÇÑ ³» $ segment = $ DB-> ¼¼±×¸ÕÆ® ( 'chr1', 5000 => 6000) ...¿¡ @Features = $ segment-> ±â´É (-type => ); # ¼ø¼­ Á¤º¸ ¾ò±â ¹× ÀúÀå # °æ°í : ¹®ÀÚ¿­À» ¹ÝȯÇÏ°í PrimarySeq °´Ã¼ $ DB-> insert_sequence ( 'chr1', 'gatccccccggatcaaaa ...')¸¦ ¹ÝȯÇÕ´Ï´Ù. ³» $ sequence = $ db-> fetch_sequence ( 'chr1', 5000 => 6000); # µ¥ÀÌÅͺ£À̽º¿¡¼­ »õ ±â´ÉÀ» ¸¸µì´Ï´Ù. $ db-> new_feature (-primary_tag => mrna ', -seq_id =>'chr3 ', -start => 10000, -end => 11000); ¿ä±¸ »çÇ× : ¡¤ Perl.


BIO :: DB :: SEQFEATURE :: STORE :: DBI :: MySQL °ü·Ã ¼ÒÇÁÆ®¿þ¾î

FileMetAdata :: Store :: XML.

FileMetAdata :: Store :: XMLÀº ½ºÅ丮Áö ¿ë XML ÆÄÀÏÀ» »ç¿ëÇÏ¿© FileMetAdata Framework ¿ë ÀúÀå¼Ò¸¦ ±¸ÇöÇÏ´Â ¸ðµâÀ» Æ÷ÇÔÇÕ´Ï´Ù. ...

172

´Ù¿î·Îµå