Help for this page

Select Code to Download


  1. or download this
             print "tag \t= $tag\n";
         my $RC_tag = reverse($tag);
         print "RC_tag \t= $RC_tag\n";
         $RC_tag =~ tr/ACTGactg/TGACtgac/;
         print "RC_tag \t= $RC_tag\n";
  2. or download this
     tag         = ACGACACGTAT
 RC_tag      = TATGCACAGCA
 RC_tag      = ATACGTGTCGT
  3. or download this
            my $tag = $tag_obj->seq;
        print "tag = ",$tag,"\n";
        my $RC_tag = reverse $tag =~ tr/ACTGactg/TGACtgac/;