[Bio] / Sprout / km_test.pl Repository:
ViewVC logotype

View of /Sprout/km_test.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Tue Oct 7 17:12:21 2014 UTC (5 years ago) by parrello
Branch: MAIN
CVS Tags: HEAD
Miscellaneous loader fixes.

########################################################################
########################################################################
use strict;

my $aaList = "LAGVEISRDTKPFNQYMHWC";
my $aaLen = 4;
my $seq0 = "MRVLKFGGTSVANAERFLRVADILESNARQGQVATVLSAPAKITNHLVAMIEKTISGQDALPNISDAERIFAELLTGLAAAQPGFPLAQLKTFVDQEFAQIKHVLHGISLLGQCPDSINAALICRGEKMSIAIMAGVLEARGHNVTVIDPVEKLLAVGHYLESTVDIAESTRRIAASRIPADHMVLMAGFTAGNEKGELVVLGRNGSDYSAAVLAACLRADCCEIWTDVDGVYTCDPRQVPDARLLKSMSYQEAMELSYFGAKVLHPRTITPIAQFQIPCLIKNTGNPQAPGTLIGASRDEDELPVKGISNLNNMAMFSVSGPGMKGMVGMAARVFAAMSRARISVVLITQSSSEYSISFCVPQSDCVRAERAMQEEFYLELKEGLLEPLAVTERLAIISVVGDGMRTLRGISAKFFAALARANINIVAIAQGSSERSISVVVNNDDATTGVRVTHQMLFNTDQVIEVFVIGVGGVGGALLEQLKRQQSWLKNKHIDLRVCGVANSKALLTNVHGLNLENWQEELAQAKEPFNLGRLIRL";
my ($seq, $sub);
if ($aaLen > 0) {
	$sub = substr($aaList, 0, $aaLen);
	$seq = $seq0;
	eval("\$seq =~ tr/$sub//d");
}
print "$seq0\n$seq\n$sub\n";

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3