DNA Sequence to RNA Sequence

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

Perl Scripts for Bioinformatics to convert DNA to RNA

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

# This script will convert your DNA sequence to RNA Sequence # While executing this script it asks for the file name of the DNA 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:\dnafile.txt, In Linux: /home/user/sequence/dnafile.txt print "\n\n\t\#################### DNA 2 RNA #################### \n\n"; print "This script will convert your DNA sequence to RNA Sequence\n\n"; print "ENTER THE FILENAME OF THE DNA SEQUENCE:= "; $dnafilename = <STDIN>; chomp $dnafilename; unless ( open(DNAFILE, $dnafilename) ) { print "Cannot open file \"$dnafilename\"\n\n"; goto h; } @DNA = <DNAFILE>; close DNAFILE; $DNA = join( '', @DNA); print "The original DNA Sequence :=\n\n"; $DNA =~ s/\s//g; print "$DNA\n\n"; $RNA = $DNA; $RNA =~ s/T/U/g; $RNA =~ s/t/u/g; print "Transcribing DNA TO RNA :=\n\n"; print "$RNA\n"; <STDIN>;

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

AATTCATTTTTAATCCTTTAATAGTCCACAGTAATATTGTCCTAAAGAGGGTACATTGG ATTTTAATTTTGCTTTCAATATGACGGCTGTCAATGTTGCCCTGATTCGTGATACCAAGTG GCTGACTTTAGAAGTCTGTAGAGAATTTCAGAGAGGAACTTGCTCTCGAGCTGATGCAGATT GCAAGTTTGCCCATCCACCAAGAGTTTGCCATGTGGAAAATGGTCGTGTGGTGGCCTGTTTTG ATTCTCTAAAGGGTCGGTGTACCCGAGAGAACTGCAAGTACCTTCACCCTCCTCCACACTTAA AAACGCAGCTGGAGATTAATGGGCGGAACAATCTGATTCAACAGAAGACTGCCGCAGCCATGTT CGCCCAGCAGATGCAGCTTATGCTCCAAAACGCTCAAATGTCATCACTTGGTTCTTTTCCTATG ACTCCATCAATTCCAGCTAATCCTCCCATGGCTTTCAATCCTTACATACCACATCCTGGGATGGG CCTCGTTCCTGCAGAACTTGTACCAAATACACCTGTTCTGATTCCTGGAAACCCACCTCTTGCAAT GCCAGGAGCTGTTGGCCCAAAACTGATGCGTTCAGATAAACTGGAGGTTTGCCGA

Result for dna2rna.pl

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