Help for this page

Select Code to Download


  1. or download this
    @seqss = split ('',$seq);
$m=scalar @seqss;
...
#FINDING OUT THE FIRST AND THE LAST CHARACTER OF THE MOTIF
$firstch=$seqss[0];
$lastch=$seqss[-1];
  2. or download this
    @pats=reverse @seqss;
foreach my $elem ( @pats )
...
push @uni, $elem;
@unique= reverse @uni;
}
  3. or download this
    for(my $i=0;$i<scalar @unique;$i++) {
  $mcut=scalar @unique;
...
    push(@val,$val1);
  }
}