RNA Sequence to DNA Sequence

This is a FREE and simple perl script which can be used to convert the RNA sequence to DNA Sequence. This script runs both on windows and linux.

Perl Scripts for Bioinformatics to convert RNA to DNA

Copy the below code and save it as " rna2dna.pl " on your system.

# This script will convert your RNA sequence to DNA Sequence # While executing this script it asks for the file name of the RNA sequence. If the sequence file is not available in the same directory of this script, enter the name of the file along with the path. eg.In windows: c:\rnafile.txt, In Linux: /home/user/sequence/rnafile.txt print "\n\n\t\#################### RNA 2 DNA #################### \n\n"; print "This script will convert your RNA sequence to DNA Sequence\n\n"; print "ENTER THE FILENAME OF THE RNA SEQUENCE:= "; $rnafilename = <STDIN>; chomp $rnafilename; unless ( open(RNAFILE, $rnafilename) ) { print "Cannot open file \"$rnafilename\"\n\n"; goto h; } @RNA = <RNAFILE>; close RNAFILE; $RNA = join( '', @RNA); print "The original RNA SEQUENCE :=\n\n"; $RNA =~ s/\s//g; print "$RNA\n\n"; $DNA = $RNA; $DNA =~ s/U/T/g; $DNA =~ s/u/t/g; print "TRANSCRIBING RNA TO DNA :=\n\n"; print "$DNA\n"; <STDIN>;

Sample DNA Sequence - Save it as " rnafile.txt "

AAUUCAUUUUUAAUCCUUUAAUAGUCCACAGUAAUAUUGUCCUAAAGAGGGUACAUUGGAU UUUAAUUUUGCUUUCAAUAUGACGGCUGUCAAUGUUGCCCUGAUUCGUGAUACCAAGUGGCU GACUUUAGAAGUCUGUAGAGAAUUUCAGAGAGGAACUUGCUCUCGAGCUGAUGCAGAUUGCAA GUUUGCCCAUCCACCAAGAGUUUGCCAUGUGGAAAAUGGUCGUGUGGUGGCCUGUUUUGAUUC UCUAAAGGGUCGGUGUACCCGAGAGAACUGCAAGUACCUUCACCCUCCUCCACACUUAAAAAC GCAGCUGGAGAUUAAUGGGCGGAACAAUCUGAUUCAACAGAAGACUGCCGCAGCCAUGUUCGC CCAGCAGAUGCAGCUUAUGCUCCAAAACGCUCAAAUGUCAUCACUUGGUUCUUUUCCUAUGAC UCCAUCAAUUCCAGCUAAUCCUCCCAUGGCUUUCAAUCCUUACAUACCACAUCCUGGGAUGGG CCUCGUUCCUGCAGAACUUGUACCAAAUACACCUGUUCUGAUUCCUGGAAACCCACCUCUUGC AAUGCCAGGAGCUGUUGGCCCAAAACUGAUGCGUUCAGAUAAACUGGAGGUUUGCCGA

Result for rna2dna.pl

>> perl rna2dna.pl #################### RNA 2 DNA #################### This script will convert your RNA sequence to DNA Sequence ENTER THE FILENAME OF THE RNA SEQUENCE:= ../bioseq/rnafile.txt The original RNA SEQUENCE := AAUUCAUUUUUAAUCCUUUAAUAGUCCACAGUAAUAUUGUCCUAAAGAGGGUACAUUGGAUUUUAAUUUUGCUUUCAAUAUGACGGCUGUCAAUGUUGCCCUGAUUCGUGAUACCAAGUGGCUGACUUUAGAAGUCUGUAGAGAAUUUCAGAGAGGAACUUGCUCUCGAGCUGAUGCAGAUUGCAAGUUUGCCCAUCCACCAAGAGUUUGCCAUGUGGAAAAUGGUCGUGUGGUGGCCUGUUUUGAUUCUCUAAAGGGUCGGUGUACCCGAGAGAACUGCAAGUACCUUCACCCUCCUCCACACUUAAAAACGCAGCUGGAGAUUAAUGGGCGGAACAAUCUGAUUCAACAGAAGACUGCCGCAGCCAUGUUCGCCCAGCAGAUGCAGCUUAUGCUCCAAAACGCUCAAAUGUCAUCACUUGGUUCUUUUCCUAUGACUCCAUCAAUUCCAGCUAAUCCUCCCAUGGCUUUCAAUCCUUACAUACCACAUCCUGGGAUGGGCCUCGUUCCUGCAGAACUUGUACCAAAUACACCUGUUCUGAUUCCUGGAAACCCACCUCUUGCAAUGCCAGGAGCUGUUGGCCCAAAACUGAUGCGUUCAGAUAAACUGGAGGUUUGCCGA TRANSCRIBING RNA TO DNA := AATTCATTTTTAATCCTTTAATAGTCCACAGTAATATTGTCCTAAAGAGGGTACATTGGATTTTAATTTTGCTTTCAATATGACGGCTGTCAATGTTGCCCTGATTCGTGATACCAAGTGGCTGACTTTAGAAGTCTGTAGAGAATTTCAGAGAGGAACTTGCTCTCGAGCTGATGCAGATTGCAAGTTTGCCCATCCACCAAGAGTTTGCCATGTGGAAAATGGTCGTGTGGTGGCCTGTTTTGATTCTCTAAAGGGTCGGTGTACCCGAGAGAACTGCAAGTACCTTCACCCTCCTCCACACTTAAAAACGCAGCTGGAGATTAATGGGCGGAACAATCTGATTCAACAGAAGACTGCCGCAGCCATGTTCGCCCAGCAGATGCAGCTTATGCTCCAAAACGCTCAAATGTCATCACTTGGTTCTTTTCCTATGACTCCATCAATTCCAGCTAATCCTCCCATGGCTTTCAATCCTTACATACCACATCCTGGGATGGGCCTCGTTCCTGCAGAACTTGTACCAAATACACCTGTTCTGATTCCTGGAAACCCACCTCTTGCAATGCCAGGAGCTGTTGGCCCAAAACTGATGCGTTCAGATAAACTGGAGGTTTGCCGA