Difference between revisions of "BuKyung Extract a sequence MKKTGIKG from ASMKATAHQMKKTGIKGMSTYALLRL and print it out in a file"
imported>Baik BuKyung (Created page with "<p>Back to Baik BuKyung</p> <hr /> <p> </p>") |
imported>Baik BuKyung |
||
Line 2: | Line 2: | ||
<hr /> | <hr /> | ||
+ | <p><span style="font-size:24px">Source code:</span></p> | ||
+ | |||
+ | <hr /> | ||
+ | <div> | ||
+ | <div>#!/usr/bin/perl<br /> | ||
+ | use strict;<br /> | ||
+ | use warnings;<br /> | ||
+ | open FH, ">", "outer.fasta" or die "$!\n";<br /> | ||
+ | <br /> | ||
+ | my $Original_sequence="ASMKATAHQMKKTGIKGMSTYALLRL";<br /> | ||
+ | my $Extracted_sequence="MKKTGIKG";<br /> | ||
+ | if($Original_sequence =~ /$Extracted_sequence/){<br /> | ||
+ | print FH ("Original sequence is :",$Original_sequence,"\nExtracted sequence is :",$Extracted_sequence);<br /> | ||
+ | }<br /> | ||
+ | else{<br /> | ||
+ | print FH ($Extracted_sequence, " is not in the ", $Original_sequence);<br /> | ||
+ | }</div> | ||
+ | |||
+ | <div> | ||
+ | <hr /> | ||
+ | <p><img alt="" src="/ckfinder/userfiles/images/%EC%BA%A1%EC%B2%9820(1).PNG" style="height:272px; width:767px" /></p> | ||
+ | </div> | ||
+ | </div> | ||
+ | |||
<p> </p> | <p> </p> | ||
+ | |||
+ | <div> | ||
+ | <hr /> | ||
+ | <p> </p> | ||
+ | |||
+ | <p><span style="font-size:24px">Result</span></p> | ||
+ | |||
+ | <p> </p> | ||
+ | |||
+ | <p><img alt="" src="/ckfinder/userfiles/images/%EC%BA%A1%EC%B2%9821.PNG" style="height:25px; width:220px" /></p> | ||
+ | |||
+ | <p> </p> | ||
+ | |||
+ | <p><span style="font-size:16px">After the 7.pl is executed, the outer.fasta file is created.</span></p> | ||
+ | |||
+ | <p> </p> | ||
+ | |||
+ | <p><span style="font-size:16px">In outer.fasta file,</span></p> | ||
+ | |||
+ | <p> </p> | ||
+ | |||
+ | <p><em>Original sequence is :ASMKATAHQMKKTGIKGMSTYALLRL<br /> | ||
+ | Extracted sequence is :MKKTGIKG</em></p> | ||
+ | |||
+ | <p> </p> | ||
+ | |||
+ | <p><span style="font-size:16px">If MKKTGIKG is not in ASMKATAHQMKKTGIKGMSTYALLRL, </span></p> | ||
+ | |||
+ | <p> </p> | ||
+ | |||
+ | <p><em>MKKTGIKG is not in the ASMKATAHQMKKTGIKGMSTYALLRL</em></p> | ||
+ | |||
+ | <p> </p> | ||
+ | |||
+ | <p><span style="font-size:16px">is in the outer.fasta file.</span></p> | ||
+ | |||
+ | <p> </p> | ||
+ | |||
+ | <p> </p> | ||
+ | |||
+ | <p> </p> | ||
+ | |||
+ | <p> </p> | ||
+ | |||
+ | <p> </p> | ||
+ | |||
+ | <p> </p> | ||
+ | |||
+ | <p><span style="font-size:16px">The content of outer.fasta file is</span></p> | ||
+ | |||
+ | <p> </p> | ||
+ | |||
+ | <p> </p> | ||
+ | |||
+ | <p> </p> | ||
+ | |||
+ | <p> </p> | ||
+ | |||
+ | <div> | ||
+ | <div><em>>0</em> | ||
+ | |||
+ | <p><em>ACCACTACTAAGCGCATGAACGACTGTTAGGTTTCCGATGGCTGCTTGCGTTCCGTGTTCCAGCTGACTGGGCTGAACTATTTGTAATGTTGGTTGCACT<br /> | ||
+ | GC content is:0.49<br /> | ||
+ | > 1<br /> | ||
+ | CAGGTACACGGACTGTTTGGTTTGCCCAATTAATTGGCGGGTCGTAAACCGGTTTTTCGTTGGGCGCGGAGTTGTCGTAAACGGTCGGTATTAACTACCT<br /> | ||
+ | GC content is:0.5<br /> | ||
+ | > 2<br /> | ||
+ | ATATTCTGTTCGAAGGCGAGGCCTTAATAAACGGGCTCACACTATACGTTTCTAGCGTGCCAGTACGCGTATGCCCTGAGCAGCATCTTGAATAGTCCTT<br /> | ||
+ | GC content is:0.48<br /> | ||
+ | > 3<br /> | ||
+ | CACGTCTTGAGGCATGCTCACATAACTTGGGATTGATACAATCGGGGGACGGTAGCGGGGCTAGTGGGCATCGTCGGCGGTCTACGAGCAAAAGTATCAG<br /> | ||
+ | GC content is:0.55<br /> | ||
+ | > 4<br /> | ||
+ | CAGGACGTGAACCGAAAGCTGCACACCTATACTATCGTAGTATACCACCGTTCCGTAAATCCATCGCTGATCCTGCCATGAAGGGCTAAGTACGCATGAG</em></p> | ||
+ | <em> GC content is:0.5</em></div> | ||
+ | |||
+ | <div> </div> | ||
+ | |||
+ | <div> | ||
+ | <p><em>Average sequence length is :100<br /> | ||
+ | GC contents:0.504</em></p> | ||
+ | <em> AT contents:0.496</em></div> | ||
+ | </div> | ||
+ | |||
+ | <div> </div> | ||
+ | |||
+ | <div> </div> | ||
+ | |||
+ | <div> </div> | ||
+ | </div> | ||
+ | |||
+ | <p><!-- end content --></p> | ||
+ | |||
+ | <div class="visualClear"> </div> | ||
+ | |||
+ | <div class="portlet" id="p-logo"> </div> | ||
+ | |||
+ | <p><!-- end of the left (by default at least) column --></p> | ||
+ | |||
+ | <div class="visualClear"> </div> |
Revision as of 21:42, 16 June 2016
Back to Baik BuKyung
Source code:
use strict;
use warnings;
open FH, ">", "outer.fasta" or die "$!\n";
my $Original_sequence="ASMKATAHQMKKTGIKGMSTYALLRL";
my $Extracted_sequence="MKKTGIKG";
if($Original_sequence =~ /$Extracted_sequence/){
print FH ("Original sequence is :",$Original_sequence,"\nExtracted sequence is :",$Extracted_sequence);
}
else{
print FH ($Extracted_sequence, " is not in the ", $Original_sequence);
Result
After the 7.pl is executed, the outer.fasta file is created.
In outer.fasta file,
Original sequence is :ASMKATAHQMKKTGIKGMSTYALLRL
Extracted sequence is :MKKTGIKG
If MKKTGIKG is not in ASMKATAHQMKKTGIKGMSTYALLRL,
MKKTGIKG is not in the ASMKATAHQMKKTGIKGMSTYALLRL
is in the outer.fasta file.
The content of outer.fasta file is
ACCACTACTAAGCGCATGAACGACTGTTAGGTTTCCGATGGCTGCTTGCGTTCCGTGTTCCAGCTGACTGGGCTGAACTATTTGTAATGTTGGTTGCACT
GC content is:0.49
> 1
CAGGTACACGGACTGTTTGGTTTGCCCAATTAATTGGCGGGTCGTAAACCGGTTTTTCGTTGGGCGCGGAGTTGTCGTAAACGGTCGGTATTAACTACCT
GC content is:0.5
> 2
ATATTCTGTTCGAAGGCGAGGCCTTAATAAACGGGCTCACACTATACGTTTCTAGCGTGCCAGTACGCGTATGCCCTGAGCAGCATCTTGAATAGTCCTT
GC content is:0.48
> 3
CACGTCTTGAGGCATGCTCACATAACTTGGGATTGATACAATCGGGGGACGGTAGCGGGGCTAGTGGGCATCGTCGGCGGTCTACGAGCAAAAGTATCAG
GC content is:0.55
> 4
CAGGACGTGAACCGAAAGCTGCACACCTATACTATCGTAGTATACCACCGTTCCGTAAATCCATCGCTGATCCTGCCATGAAGGGCTAAGTACGCATGAG
Average sequence length is :100
GC contents:0.504