Question: (Closed) Ask For A Script To Carry Out Reverse Complement Of Dna Sequence
0
gravatar for siyu
5.7 years ago by
siyu130
China
siyu130 wrote:

ask for a script to carry out reverse complement of DNA sequence ! thanks!

sequence dna • 2.8k views
ADD COMMENTlink written 5.7 years ago by siyu130
5

Please do a proper search within the forum site

ADD REPLYlink modified 5.7 years ago by Eric Normandeau10k • written 5.7 years ago by PoGibas4.7k
5

http://whathaveyoutried.com/

ADD REPLYlink written 5.7 years ago by Pierre Lindenbaum116k
5

This is a great example of a lazy question with no evidence of an attempt to solve the problem yourself. If down-votes were still implemented at this site, it would get them.

ADD REPLYlink written 5.7 years ago by Neilfws48k

In the absence of downvotes, any reason why we shouldn't just delete this question?

ADD REPLYlink written 5.7 years ago by Chris Miller20k

Good point. No.

ADD REPLYlink written 5.7 years ago by Neilfws48k

testing the new post closing feature

ADD REPLYlink written 5.7 years ago by Istvan Albert ♦♦ 79k

same here, testing the comment-before-closing feature

ADD REPLYlink written 5.7 years ago by Eric Normandeau10k

So: this question would be/has been closed because in my opinion (1) the problem is common with a trivial, easily-found solution and (2) the user has made no attempt to find the solution themselves and is simply asking someone else to do their work for them.

These comments then serve as a record as to why the question was closed.

Simple hey :)

ADD REPLYlink written 5.7 years ago by Neilfws48k

copy the following code to rcdna.pl
then use:
perl rcdna.pl ATCG
the script will return: TAGC

#!/usr/bin/perl

use strict;
my $dna=shift @ARGV;
my $rcdna= & reverse_complement_IUPAC($dna);
print "$rcdna\n";

sub reverse_complement_IUPAC {
        my $dna = shift;

        # reverse the DNA sequence
        my $revcomp = reverse($dna);

        # complement the reversed DNA sequence
        $revcomp =~ tr/ABCDGHMNRSTUVWXYabcdghmnrstuvwxy/TVGHCDKNYSAABWXRtvghcdknysaabwxr/;
        return $revcomp;
}
ADD REPLYlink modified 3.3 years ago • written 3.3 years ago by Shicheng Guo7.4k
Please log in to add an answer.
The thread is closed. No new answers may be added.

Help
Access

Use of this site constitutes acceptance of our User Agreement and Privacy Policy.
Powered by Biostar version 2.3.0
Traffic: 1025 users visited in the last hour