Damian: New page: Return to Aug 30-Sept 5

  #!/usr/bin/perl -w  use strict;   #Damian Almiron  #Ex 4-5   # Write a program to reverse transcribe RNA to DNA   # The RNA  variable   my $RNA = 'AUGCA...

2009-12-18T16:25:42Z

New page: Return to Aug 30-Sept 5 <pre> #!/usr/bin/perl -w use strict; #Damian Almiron #Ex 4-5 # Write a program to reverse transcribe RNA to DNA # The RNA variable my $RNA = 'AUGCA...

New page

Return to [[Aug 30-Sept 5]]

<pre>

#!/usr/bin/perl -w

use strict;

#Damian Almiron

#Ex 4-5

# Write a program to reverse transcribe RNA to DNA

# The RNA variable

my $RNA = 'AUGCAUGCAUGCAUGCAUU';

print "This is our original RNA:\n\n�

print �$RNA.\n\n";

#Reverse transcription

my $DNA = $RNA;

$DNA =~ s/U/T/g;

#Print the DNA to the screen

print "Here is the resulting DNA:\n\n";

print "$DNA.\n\n";

exit;

</pre>

Exercise 4.5 D - Revision history

Damian: New page: Return to Aug 30-Sept 5
#!/usr/bin/perl -w use strict; #Damian Almiron #Ex 4-5 # Write a program to reverse transcribe RNA to DNA # The RNA variable my $RNA = 'AUGCA...