Changes
Created page with "<p>Back to Baik BuKyung</p> <hr /> <p><span style="font-size:24px">Source code:</span></p> <hr /> <div> <div> <div>#!/usr/bin/perl<br /> use strict;<br /> use w..."
<p>Back to [[Baik BuKyung]]</p>
<hr />
<p><span style="font-size:24px">Source code:</span></p>
<hr />
<div>
<div>
<div>#!/usr/bin/perl<br />
use strict;<br />
use warnings;<br />
open FH, ">", "outer.fasta" or die "$!\n";<br />
my @seq=("A", "T", "G", "C");</div>
<div> </div>
<div>for(my $i=0; $i<5;$i++){<br />
print FH ">", $i,"\n";<br />
for(my $j=0; $j<100;$j++){<br />
print FH $seq[int(rand(4))];<br />
}<br />
print FH "\n"<br />
}</div>
<div> </div>
<div>close FH;</div>
</div>
</div>
<div> </div>
<div>
<hr />
<p><img alt="" src="/ckfinder/userfiles/images/%EC%BA%A1%EC%B2%9814.PNG" style="height:291px; width:361px" /></p>
</div>
<div>
<hr />
<p><span style="font-size:24px">Result</span></p>
<p><img alt="" src="/ckfinder/userfiles/images/%EC%BA%A1%EC%B2%9815.PNG" style="height:26px; width:224px" /></p>
<p><span style="font-size:16px">After the 3.pl is executed, the outer.fasta file is generated.</span></p>
<p><span style="font-size:16px">The content is</span></p>
<p>>0<br />
AGAGCATAATATTGGGGCGGACTTGAAATCCAGTTAATTGGGGGTTCTGGAGCATTGGTCTGGTCGCCTGCTACGCTTATCACTACTGGATGAAACTTCC<br />
>1<br />
ACGGCCAAGGTGTGTGTCATAGCTGTTCCGTCGTCTATCCTGAACGAGCCTATAAATACATGAACCTTGGCAGGTTACAAACGCCGGAAGCGTTCTGGGC<br />
>2<br />
CACGGCCGCCCACATGGGACAACCTGGCATCGGCGGTAAAGGCTCGTACCATAGTTGAAGCGAGACGGCAGTATAAGCACCGTCCGAATCGTCACCCTTT<br />
>3<br />
AGAACGGATAGGATCGTTCCCGTGATACCCGTAGCCCAGATCAAAAAAATACCACACAATATAAATGTTACAAAGCGGACGCCTAATAACCACCTAGGAG<br />
>4<br />
TCTTTCCGGCTCGACTTATCATCGGTGGATCGAATAATCAATAGGGCTTCGAACTATAGAGGGTTTCAAGGTCTGACTCTAGAGGACGTCTGGGGAGGGC<br />
</p>
<p> </p>
</div>
<hr />
<p><span style="font-size:24px">Source code:</span></p>
<hr />
<div>
<div>
<div>#!/usr/bin/perl<br />
use strict;<br />
use warnings;<br />
open FH, ">", "outer.fasta" or die "$!\n";<br />
my @seq=("A", "T", "G", "C");</div>
<div> </div>
<div>for(my $i=0; $i<5;$i++){<br />
print FH ">", $i,"\n";<br />
for(my $j=0; $j<100;$j++){<br />
print FH $seq[int(rand(4))];<br />
}<br />
print FH "\n"<br />
}</div>
<div> </div>
<div>close FH;</div>
</div>
</div>
<div> </div>
<div>
<hr />
<p><img alt="" src="/ckfinder/userfiles/images/%EC%BA%A1%EC%B2%9814.PNG" style="height:291px; width:361px" /></p>
</div>
<div>
<hr />
<p><span style="font-size:24px">Result</span></p>
<p><img alt="" src="/ckfinder/userfiles/images/%EC%BA%A1%EC%B2%9815.PNG" style="height:26px; width:224px" /></p>
<p><span style="font-size:16px">After the 3.pl is executed, the outer.fasta file is generated.</span></p>
<p><span style="font-size:16px">The content is</span></p>
<p>>0<br />
AGAGCATAATATTGGGGCGGACTTGAAATCCAGTTAATTGGGGGTTCTGGAGCATTGGTCTGGTCGCCTGCTACGCTTATCACTACTGGATGAAACTTCC<br />
>1<br />
ACGGCCAAGGTGTGTGTCATAGCTGTTCCGTCGTCTATCCTGAACGAGCCTATAAATACATGAACCTTGGCAGGTTACAAACGCCGGAAGCGTTCTGGGC<br />
>2<br />
CACGGCCGCCCACATGGGACAACCTGGCATCGGCGGTAAAGGCTCGTACCATAGTTGAAGCGAGACGGCAGTATAAGCACCGTCCGAATCGTCACCCTTT<br />
>3<br />
AGAACGGATAGGATCGTTCCCGTGATACCCGTAGCCCAGATCAAAAAAATACCACACAATATAAATGTTACAAAGCGGACGCCTAATAACCACCTAGGAG<br />
>4<br />
TCTTTCCGGCTCGACTTATCATCGGTGGATCGAATAATCAATAGGGCTTCGAACTATAGAGGGTTTCAAGGTCTGACTCTAGAGGACGTCTGGGGAGGGC<br />
</p>
<p> </p>
</div>