| ¹ÙÀÌ¿À :: Seq :: PrimoryQual. BIO :: SEQ :: PRIOMINGQUALÀº °æ·®ÀÇ Ç°Áú °³Ã¼°¡ÀÖ´Â BIOPERL ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
¹ÙÀÌ¿À :: Seq :: PrimoryQual. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Chad Matsalla
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~birney/bioperl-1.4/Bio/Seq/PrimaryQual.pm
¹ÙÀÌ¿À :: Seq :: PrimoryQual. ű×
¹ÙÀÌ¿À :: Seq :: PrimoryQual. ¼³¸í
BIO :: SEQ :: PRIOMINGQUALÀº °æ·®ÀÇ Ç°Áú °³Ã¼°¡ÀÖ´Â BIOPERL ¸ðµâÀÔ´Ï´Ù. Bio :: Seq :: PrightQualÀº °æ·®ÀÇ Ç°Áú °´Ã¼°¡ÀÖ´Â BioPerl ¸ðµâÀÔ´Ï´Ù. ½Ä °Ë»ç´Â ¹ÙÀÌ¿À :: Seq :: PrimoryQualÀ» »ç¿ëÇÕ´Ï´Ù. # ´ç½ÅÀº Ç°Áú¿¡ ´ëÇÑ °ø°£ ±¸ºÐ µÈ ¹®ÀÚ¿À» »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù $ string_quals = "102030304050403020"; MY $ QualoBJ = BIO :: Seq :: Prightqual-> New ( '-qual'=> $ string_quals, '-id'=> 'qualityFragment-12', '-accession_number'=> 'x78121',); # _OR_ @ Q2 = SPLIT / / /, $ string_qualsÀÇ ¹è¿À» »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. $ qualobj = bio :: seq :: primaryqual-> new ( '-qual'=> @ q2, '-primary_id'=> 'chads primary_id', '-desc'=> 'chads desc', '-accession_number'= > 'CHADS Accession_number', '-id'=> 'Chads ID'); # Ç°Áú °¡Ä¡¸¦ ¾òÀ¸·Á¸é : @quals = @ {$ qualobj-> qual ()}; # _new_ Ç°Áú °ªÀ»ÁÖ´Â °Í : $ newqualstring = "5090100020120 0"; $ qualobj-> qual ($ newqualstring); ¿ä±¸ »çÇ× : ¡¤ Perl.
¹ÙÀÌ¿À :: Seq :: PrimoryQual. °ü·Ã ¼ÒÇÁÆ®¿þ¾î