Documentación

Tipos de datos y operadores
• Ejemplo 3: Transcripción de ADN a ARN
#!/usr/bin/perl -w
# Transcripción de ADN a ARN
# Cadena de DNA
$DNA = 'ACGGGAGGACGGGAAAATTACTACGGCATTAGC';
# Imprimir el DNA en pantalla
print "Esta es la cadena de partida DNA: $DNA \n\n";
# Transcribir el ADN a ARN sustituyendo las Ts por Us.
$RNA = $DNA;
$RNA =~ s/T/U/g;
Global
# Imprimir el RNA en pantalla
print "Esta es la cadena de ARN:\n\n";
print "$RNA\n";
# Salir del programa
exit;