| Bio :: »öÀÎ :: Swissprot. BIO :: index :: SwissPRotÀº Àε¦½Ì (´ÙÁß) SwissProt .dat ÆÄÀÏ (Áï, Ç÷§ ÆÄÀÏ ½ºÀ§½º ÇÁ·Î Æ÷¸Ë)À»À§ÇÑ Perl ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Bio :: »öÀÎ :: Swissprot. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~birney/bioperl-1.4/Bio/Tools/Prints.pm
Bio :: »öÀÎ :: Swissprot. ű×
Bio :: »öÀÎ :: Swissprot. ¼³¸í
BIO :: Index :: SwissPRotÀº Àε¦½Ì (´ÙÁß) SwissProt .dat ÆÄÀÏ (Áï, Ç÷§ ÆÄÀÏ ½ºÀ§½º ÇÁ·Î Æ÷¸Ë)À»À§ÇÑ Perl ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. BIO :: Index :: SwissPROTÀº Àε¦½Ì (´ÙÁß) SwissProt .dat ÆÄÀÏ (Áï, Ç÷§ ÆÄÀÏ ½ºÀ§½º ÇÁ·Î Æ÷¸Ë)À»À§ÇÑ Perl ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. Swissprot ÆÄÀÏ¿¡ ´ëÇÑ À妽º¸¦ ¸¸µé±âÀ§ÇÑ ÄÚµå ¿Ï·á Bio :: Index :: SwissPROT; ¾ö°ÝÇÑ »ç¿ë; ³» $ index_file_name = Shift; ³» $ inx = bio :: index :: swissprot-> new ( '- filename'=> $ index_file_name, '-write_flag'=> 'write'); $ inx-> make_index (@argv); # GCG Çü½ÄÀÇ À妽º #¿¡ÀÖ´Â ¿©·¯ ½ÃÄö½º¸¦ ÀμâÇÕ´Ï´Ù. BIO :: Index :: Swissprot; ¹ÙÀÌ¿À :: Seqio; ¾ö°ÝÇÑ »ç¿ë; MY $ OUT = BIO :: SEQIO-> NEW ( '- FORMAT'=> 'gcg', '-fh'=> * stdout); ³» $ index_file_name = Shift; MY $ INX = BIO :: index :: Swissprot-> new ( '- filename'=> $ index_file_name); ³» $ ID (@ARGV) {MY $ SEQ = $ INX-> FETCH ($ ID); # ¹Ýȯ µÈ ¹ÙÀÌ¿À :: SEQ °³Ã¼ $ out-> write_seq ($ seq); } # # ¶Ç´Â ($ ID, $ ACC); ³» $ seq1 = $ inx-> get_seq_by_id ($ ID); $ seq2 = $ inx-> get_seq_by_acc ($ acc); bio :: index :: abstract.pm¿¡¼ dbm ÆÄÀÏÀ» °ü¸®ÇÏ´Â ÇÔ¼ö¸¦ »ó¼ÓÇÏ°í SwissProt ÆÄÀÏÀ» À妽ÌÇÏ°í ÇØ´ç ½ÃÄö½º¸¦ °Ë»öÇÏ´Â ±âº» funtionally¸¦ Á¦°øÇÕ´Ï´Ù. James GilbertÀÇ Fasta System¿¡¼ ¹«°Ì°Ô Àç°¥. Âü°í : ÃÖ»óÀÇ °á°ú¸¦ À§ÇØ ±¸¼º¿¡¼ Strict'.details¸¦ »ç¿ëÇÏ°í Ãß°¡ ¿¹Á¦ ÄÚµå´Â biodatabases.pod ÆÄÀÏ¿¡¼ »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
Bio :: »öÀÎ :: Swissprot. °ü·Ã ¼ÒÇÁÆ®¿þ¾î