Changes
From Biolecture.org
no edit summary
<hr />
<div>
<div>
<div>
use warnings;<br />
open FH, ">", "outer.fasta" or die "$!\n";<br />
my @seq=("K", "N", "I", "M", "R", "S", "Y", "F", "C", "W", "E", "D", "V", "G", "A", "TQ", "GH", "L", "R", "CP");</div>
<div> </div>
print FH ">", $i,"\n";<br />
for(my $j=0; $j<100;$j++){<br />
print FH $seq[int(rand(420))];<br />
}<br />
print FH "\n"<br />
<div>close FH;</div>
</div>
</div>
</div>
<div>
<hr />
<p><img alt="" src="/ckfinder/userfiles/images/%EC%BA%A1%EC%B2%9814(2).PNG" style="height:291px270px; width:361px800px" /></p>
</div>
<p><em>>0<br />
>1<br />
>2<br />
>3<br />
>4<br />
</p>
</div>