Invertendo DNA

Descrição

Esconder código-fonte

#!/usr/bin/perl

# Autor   : Eder S. G.
# E-M@il  : edersg23@terra.com.br
# Site    : www.dartline.com.br/edersg23/
# Data    : 03/07/2003
# Versão  : 1.0
# Licença : GPL

# Sequência que se deseja utilizar:
$dna01 = 'TTCCGAGCCAATTGTATCAGTTGCCAATAG';

# Inverte a ordem da sequência de DNA acima:
$dna01_invertido = reverse $dna01;

# Troca as bases produzindo a fita complementar:
$dna01_invertido =~ tr/ACGTA/TGCA/;

# Exibe na tela o conteúdo da variável dna01_invertido:
print "A sequência invertida é : \n $dna01_invertido\n";