Difference between revisions of "BuKyung Randomly generate five 100 AA long protein sequences and store them in a FASTA file"
imported>Baik BuKyung (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...") |
imported>Baik BuKyung |
||
Line 45: | Line 45: | ||
<p><span style="font-size:16px">The content is</span></p> | <p><span style="font-size:16px">The content is</span></p> | ||
+ | |||
+ | <p> </p> | ||
<p>>0<br /> | <p>>0<br /> |
Revision as of 18:08, 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