Difference between revisions of "BuKyung Randomly generate five 100 AA long protein sequences and store them in a FASTA file"
imported>Baik BuKyung |
imported>Baik BuKyung |
||
Line 48: | Line 48: | ||
<p> </p> | <p> </p> | ||
− | <p>>0<br /> | + | <p><em>>0<br /> |
AGAGCATAATATTGGGGCGGACTTGAAATCCAGTTAATTGGGGGTTCTGGAGCATTGGTCTGGTCGCCTGCTACGCTTATCACTACTGGATGAAACTTCC<br /> | AGAGCATAATATTGGGGCGGACTTGAAATCCAGTTAATTGGGGGTTCTGGAGCATTGGTCTGGTCGCCTGCTACGCTTATCACTACTGGATGAAACTTCC<br /> | ||
>1<br /> | >1<br /> | ||
Line 57: | Line 57: | ||
AGAACGGATAGGATCGTTCCCGTGATACCCGTAGCCCAGATCAAAAAAATACCACACAATATAAATGTTACAAAGCGGACGCCTAATAACCACCTAGGAG<br /> | AGAACGGATAGGATCGTTCCCGTGATACCCGTAGCCCAGATCAAAAAAATACCACACAATATAAATGTTACAAAGCGGACGCCTAATAACCACCTAGGAG<br /> | ||
>4<br /> | >4<br /> | ||
− | TCTTTCCGGCTCGACTTATCATCGGTGGATCGAATAATCAATAGGGCTTCGAACTATAGAGGGTTTCAAGGTCTGACTCTAGAGGACGTCTGGGGAGGGC<br /> | + | TCTTTCCGGCTCGACTTATCATCGGTGGATCGAATAATCAATAGGGCTTCGAACTATAGAGGGTTTCAAGGTCTGACTCTAGAGGACGTCTGGGGAGGGC</em><br /> |
</p> | </p> | ||
<p> </p> | <p> </p> | ||
</div> | </div> |
Revision as of 18:10, 12 June 2016
Back to Baik BuKyung
Source code:
use strict;
use warnings;
open FH, ">", "outer.fasta" or die "$!\n";
print FH ">", $i,"\n";
for(my $j=0; $j<100;$j++){
print FH $seq[int(rand(4))];
}
print FH "\n"
Result
After the 3.pl is executed, the outer.fasta file is generated.
The content is
>0
AGAGCATAATATTGGGGCGGACTTGAAATCCAGTTAATTGGGGGTTCTGGAGCATTGGTCTGGTCGCCTGCTACGCTTATCACTACTGGATGAAACTTCC
>1
ACGGCCAAGGTGTGTGTCATAGCTGTTCCGTCGTCTATCCTGAACGAGCCTATAAATACATGAACCTTGGCAGGTTACAAACGCCGGAAGCGTTCTGGGC
>2
CACGGCCGCCCACATGGGACAACCTGGCATCGGCGGTAAAGGCTCGTACCATAGTTGAAGCGAGACGGCAGTATAAGCACCGTCCGAATCGTCACCCTTT
>3
AGAACGGATAGGATCGTTCCCGTGATACCCGTAGCCCAGATCAAAAAAATACCACACAATATAAATGTTACAAAGCGGACGCCTAATAACCACCTAGGAG
>4
TCTTTCCGGCTCGACTTATCATCGGTGGATCGAATAATCAATAGGGCTTCGAACTATAGAGGGTTTCAAGGTCTGACTCTAGAGGACGTCTGGGGAGGGC