Difference between revisions of "BuKyung Create a flat text file database of protein sequences with hash function in Perl"
From Biolecture.org
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> | ||
+ | |||
<p> </p> | <p> </p> | ||
+ | |||
+ | <hr /> | ||
+ | <div> | ||
+ | <div>#!/usr/bin/perl | ||
+ | <p> 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);</p> | ||
+ | }</div> | ||
+ | |||
+ | <div> | ||
+ | <hr /> | ||
+ | <p> </p> | ||
+ | |||
+ | <p><img alt="" src="http://biolecture.org/ckfinder/userfiles/images/%EC%BA%A1%EC%B2%9820(1).PNG" style="height:272px; width:767px" /></p> | ||
+ | </div> | ||
+ | </div> | ||
+ | |||
+ | <p> </p> | ||
+ | |||
+ | <div> | ||
+ | <hr /> | ||
+ | <p><span style="font-size:24px">Result</span></p> | ||
+ | |||
+ | <p> </p> | ||
+ | |||
+ | <p> </p> | ||
+ | </div> |
Revision as of 05:56, 17 June 2016
Back to Baik BuKyung
Source code:
#!/usr/bin/perl
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