| Bio :: Seq :: PrimedSeq. ½ÃÄö½ºÀÇ Ç¥Çö°ú Ç¥Àû ¿µ¿ªÀ» Ãø¸éÇÏ´Â µÎ °³ÀÇ ÇÁ¶óÀ̸ÓÀÇ Ç¥Çö |
Áö±Ý ´Ù¿î·Îµå |
Bio :: Seq :: PrimedSeq. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Christopher Fields
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~cjfields/
Bio :: Seq :: PrimedSeq. ű×
Bio :: Seq :: PrimedSeq. ¼³¸í
½ÃÄö½ºÀÇ Ç¥Çö°ú Ç¥Àû ¿µ¿ªÀ» Ãø¸éÇÏ´Â µÎ °³ÀÇ ÇÁ¶óÀ̸ÓÀÇ Ç¥Çö Bio :: Seq :: PrimedSeqÀº ¼¿À» ³ªÅ¸³½ ¼¿°ú µÎ °³ÀÇ ÇÁ¶óÀ̸Ӱ¡ ´ë»ó ¿µ¿ªÀ» Ãø¸éÇϴ ǥÇöÀÔ´Ï´Ù. ½Äº°·ÂÀº (i) ¾Æ¸¶µµ (i), ¹ÙÀÌ¿À :: µµ±¸ :: Run¿¡¼ # Ãâ·ÂÀ» ¾òÀ» ¼ö ÀÖ½À´Ï´Ù. : primer3, bio :: tools :: primer3 ¶Ç´Â # bio :: µµ±¸ :: pcrsimulation : # ¿¹¸¦ µé¾î FASTA ÆÄÀÏ·Î ½ÃÀÛ BIO :: SEQIO; BIO :: TOOLS :: RUN :: PRIMER3; ³» $ file = shift || "ÀÐÀ» ÆÄÀÏÀÌ ÇÊ¿äÇÕ´Ï´Ù"; ³» $ seqin = bio :: seqio-> new (-file => $ file); ³» $ seq = $ seqin-> next_seq; # primer3À» »ç¿ëÇÏ¿© ÀϺΠÇÁ¶óÀ̸Ӹ¦ µðÀÚÀÎÇÏ·Á¸é $ primer3run = bio :: µµ±¸ :: Run :: primer3-> new (-seq => $ seq); $ primer3run -> ½ÇÇà; # ±âº» ¸Å°³ º¯¼ö·Î ½ÇÇà # ³» $ seqout = bio :: seqio-> new (-file =>> primed_sequence.gbk ", - format => 'genbank)¿¡ °á°ú¸¦ ¾¹´Ï´Ù. # Áö±ÝÀº ¸ðµç °á°ú¸¦ ¾ò°í ¹ÛÀ¸·Î ¾µ ¼ö ÀÖ½À´Ï´Ù. while (my $ °á°ú = $ primer3run-> next_primer) {$ seqout-> write_seq ($ °á°ú -> annotated_seq); } # ¶Ç´Â (ii) ½ÃÄö½º ¹× ±× µ¿Á· # ÇÁ¶óÀ̸ӿ¡ ´ëÇÑ GenBank ÆÄÀÏÀ» ¸¸µå´Â ¹æ¹ý : Bio :: Seqio; Bio :: Seq :: PrimedSeq; # ÅÛÇø´ÀÌÀÖ´Â ½ÃÄö½º ÆÄÀÏ ($ ÆÄÀÏ)°ú µÎ °³ÀÇ ÇÁ¶óÀÌ¸Ó #°¡ ÀÏÄ¡ÇÏ´Â µÎ °³ÀÇ ÇÁ¶óÀÌ¸Ó #, FASTA Çü½ÄÀ¸·Î MY $ FILE = SHIFT || "$ 0"; ³» $ seqin = bio :: seqio-> new (-file => $ file); # 3 °³ÀÇ ½ÃÄö½º ³» ($ template, $ freePrimer, $ riveprimer) = ($ seqin-> next_seq, $ seqin-> next_seq, $ seqin-> next_seq); # primed sequence object ³» $ primedseq = bio :: seq :: primedseq-> new (-seq => $ template, -left_primer => $ newprimer, -right_primer => $ rickprimer); # ³» $ seqout = bio :: seqio-> new (-file => "> primed_sequence.gbk", -format => 'genbank ")¸¦ Ãâ·ÂÇϱâÀ§ÇÑ ÆÄÀÏÀ» ¿±´Ï ´Ù. # ½ÃÄö½º Ãâ·Â $ seqout-> write_seq ($ primedseq-> annotated_sequence)¸¦ ÀμâÇÕ´Ï´Ù. # ÀÌ´Â µÎ °³ÀÇ ÇÁ¶óÀ̸Ӱ¡ ·¹À̺íÀÌÀÖ´Â °Õ ¹ðÅ© ÆÄÀÏÀ» Ãâ·ÂÇؾßÇÕ´Ï´Ù.ÀÌ ¸ðµâÀº ÇÁ¶óÀÌ¹Ö µÈ ¼¿À» Æ÷ÇÔÇÏ´Â ¾à°£ ¿µ±¤ÀÇ Ä¸½¶ÀÔ´Ï´Ù. ÇÁ¶óÀ̸Ӱ¡ SeqFeature ÀÌ»óÀ̶ó´Â »ç½ÇÀ» ÇØ°áÇϱâ À§ÇØ ¸¸µé¾îÁ³À¸¸ç º¹ÇÕü¿Í °ü·ÃµÈ ÇÁ¶óÀÌ¸Ó ½ÃÄö½º º¹ÇÕü¿Í µ¿ÀÛ ¹× ¼Ó¼ºÀ» ³ªÅ¸³»´Â ¹æ¹ýÀÌ ÇÊ¿äÇÕ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
Bio :: Seq :: PrimedSeq. °ü·Ã ¼ÒÇÁÆ®¿þ¾î