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

Annotation of /Sprout/km_test.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download) (as text)

1 : parrello 1.1 ########################################################################
2 :     ########################################################################
3 :     use strict;
4 :    
5 :     my $aaList = "LAGVEISRDTKPFNQYMHWC";
6 :     my $aaLen = 4;
7 :     my $seq0 = "MRVLKFGGTSVANAERFLRVADILESNARQGQVATVLSAPAKITNHLVAMIEKTISGQDALPNISDAERIFAELLTGLAAAQPGFPLAQLKTFVDQEFAQIKHVLHGISLLGQCPDSINAALICRGEKMSIAIMAGVLEARGHNVTVIDPVEKLLAVGHYLESTVDIAESTRRIAASRIPADHMVLMAGFTAGNEKGELVVLGRNGSDYSAAVLAACLRADCCEIWTDVDGVYTCDPRQVPDARLLKSMSYQEAMELSYFGAKVLHPRTITPIAQFQIPCLIKNTGNPQAPGTLIGASRDEDELPVKGISNLNNMAMFSVSGPGMKGMVGMAARVFAAMSRARISVVLITQSSSEYSISFCVPQSDCVRAERAMQEEFYLELKEGLLEPLAVTERLAIISVVGDGMRTLRGISAKFFAALARANINIVAIAQGSSERSISVVVNNDDATTGVRVTHQMLFNTDQVIEVFVIGVGGVGGALLEQLKRQQSWLKNKHIDLRVCGVANSKALLTNVHGLNLENWQEELAQAKEPFNLGRLIRL";
8 :     my ($seq, $sub);
9 :     if ($aaLen > 0) {
10 :     $sub = substr($aaList, 0, $aaLen);
11 :     $seq = $seq0;
12 :     eval("\$seq =~ tr/$sub//d");
13 :     }
14 :     print "$seq0\n$seq\n$sub\n";

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3