View source for 8) Generating five 100 AA long protein sequences and storing them in a FASTA file YS

From Biolecture.org

← 8) Generating five 100 AA long protein sequences and storing them in a FASTA file YS

You do not have permission to edit this page, for the following reason:

---

You can view and copy the source of this page.

<p>&nbsp;</p> <h4><strong>Idea</strong></h4> <ul> <li>20개의 amino acid를 랜덤하게 나타나게 하는 작업을 100번 반복</li> <li>1.의&nbsp;코드를 5번 반복</li> <li>반복작업은 for loop사용</li> <li><strong>rand</strong>를 이용해서 chars안의 요소들을 랜덤하게 배치</li> </ul> <p>&nbsp;</p> <h4><strong>Code</strong></h4> <table border="1" cellpadding="1" cellspacing="1" style="width:500px"> <tbody> <tr> <td> <p>#!/usr/bin/perl<br /> &nbsp; use strict;<br /> &nbsp; use warnings;<br /> &nbsp;&nbsp;<br /> &nbsp; my @chars=(&#39;A&#39;,&#39;C&#39;,&#39;D&#39;,&#39;E&#39;,&#39;F&#39;,&#39;G&#39;,&#39;H&#39;,&#39;I&#39;,&#39;K&#39;,&#39;L&#39;,&#39;M&#39;,&#39;N&#39;,&#39;P&#39;,&#39;Q&#39;,&#39;R&#39;,&#39;S&#39;,&#39;T&#39;,&#39;V&#39;,&#39;W&#39;,&#39;Y&#39;);<br /> &nbsp; my $random_string;<br /> &nbsp; my $i;<br /> &nbsp; for($i = 1; $i &lt;=5 ; $i++)<br /> &nbsp; {<br /> &nbsp; &nbsp; print $i,&quot;.&quot;;<br /> &nbsp; for(1..100)<br /> &nbsp; {<br /> &nbsp; &nbsp; $random_string = $chars[rand @chars];<br /> &nbsp; &nbsp; print $random_string;<br /> &nbsp; };<br /> &nbsp;print &quot;\n\n&quot;;<br /> &nbsp;};</p> </td> </tr> </tbody> </table> <p>&nbsp;</p> <p>&nbsp;</p> <h4><strong>Result</strong></h4> <p><img alt="" src="/ckfinder/userfiles/images/random_result.png" /></p> <p>&nbsp;</p> <h4><strong>Application</strong></h4> <ul> <li> <p>키보드로부터 입력을 이용해 amino acid 의 갯수와 반복횟수를 입력받아 원하는 sequence의 갯수와 sequence의 길이를 출력한다.&nbsp;</p> </li> <li> <p>키보드로부터 입력을 받을때는 <strong>&lt;STDIN&gt;</strong>을 이용한다.</p> </li> </ul> <p>&nbsp;</p> <h4><strong>Code_application</strong></h4> <table border="1" cellpadding="1" cellspacing="1" style="width:500px"> <tbody> <tr> <td> <p>#!/usr/bin/perl<br /> &nbsp; use strict;<br /> &nbsp; use warnings;<br /> &nbsp;&nbsp;<br /> &nbsp; my @chars=(&#39;A&#39;,&#39;C&#39;,&#39;D&#39;,&#39;E&#39;,&#39;F&#39;,&#39;G&#39;,&#39;H&#39;,&#39;I&#39;,&#39;K&#39;,&#39;L&#39;,&#39;M&#39;,&#39;N&#39;,&#39;P&#39;,&#39;Q&#39;,&#39;R&#39;,&#39;S&#39;,&#39;T&#39;,&#39;V&#39;,&#39;W&#39;,&#39;Y&#39;);<br /> &nbsp; my $random_string;<br /> &nbsp; my $i;<br /> &nbsp; my $repeat;<br /> &nbsp; my $string_number;</p> <p>print &quot;Put in the number of times to repeat : &quot;;<br /> <strong>$repeat = &lt;STDIN&gt;;</strong></p> <p>print &quot;Put in the number of sequence : &quot;;<br /> <strong>$string_number = &lt;STDIN&gt;;</strong></p> <p>&nbsp; for($i = 1; $i &lt;=<strong> $repeat</strong> ; $i++)<br /> &nbsp; {<br /> &nbsp; &nbsp; print $i,&quot;.&quot;;<br /> &nbsp; for(1..<strong>$string_number</strong>)<br /> &nbsp; {<br /> &nbsp; &nbsp; $random_string = $chars[rand @chars];<br /> &nbsp; &nbsp; print $random_string;<br /> &nbsp; };<br /> &nbsp;print &quot;\n\n&quot;;<br /> &nbsp;};</p> </td> </tr> </tbody> </table> <p>&nbsp;</p> <p>&nbsp;</p> <hr /> <p>[[Yeonsong - bioinformatics]]</p>

Return to 8) Generating five 100 AA long protein sequences and storing them in a FASTA file YS.