<html>
<head>
<style>
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
FONT-SIZE: 10pt;
FONT-FAMILY:Tahoma
}
</style>
</head>
<body class='hmmessage'><div style="text-align: left;">Pessoal,<br><br>Estou com uma nova dúvida. Escrevi um programinha de exercício do livro "Beginning Perl for Bioinformatics", mas ele está com algum erro que eu estou quebrando a cabeça e não consigo achar. É um programa para contar a frequência de cada uma das bases em uma sequência de DNA. Sem subrotina ele funciona, mas agora eu criei uma subrotina e um programa principal e ele não está passando a variável corretamente. O código é o seguinte:<br><br>#!usr\bin\perl -w<br>#<br># Este programa calcula a % de cada nucleotideo em<br># uma sequencia de DNA<br><br>use strict;<br>use warnings;<br><br># Entrada da sequencia de DNA<br>print "Entre com a sequencia de DNA:\n";<br>my($dna);<br>$dna = 'ACGTACGTACGT';<br><br>print $dna, "\n";<br><br>exercise($dna);<br><br>exit;<br><br>sub exercise {<br><br> use strict;<br> use warnings;<br><br> my($dna, $a, $c, $g, $t, $length, $ver);<br><br> $dna = @_;<br><br> print "DNA = $dna\n";<br><br> # Teste de pausa do programa<br> $ver = <STDIN>;<br><br> # Contagem da frequencia de cada nucleotideo<br> $a = ($dna =~ tr/Aa//);<br> $c = ($dna =~ tr/Cc//);<br> $g = ($dna =~ tr/Gg//);<br> $t = ($dna =~ tr/Tt//);<br><br> # Calculo do tamanho do fragmento de DNA<br> $length = length($dna);<br><br> # Calculo da porcentagem de cada residuo<br> $a = int(100*$a/$length);<br> $c = int(100*$c/$length);<br> $g = int(100*$g/$length);<br> $t = int(100*$t/$length);<br><br> print "A = $a %\n";<br> print "C = $c %\n";<br> print "G = $g %\n";<br> print "T = $t %\n";<br> print "DNA = $length\n";<br> <br> return $dna;<br> <br>}<br><br>Ah, e estou usando o ConTEXT ao invés do notepad. É muito melhor.<br><br>Abraços,<br>Alexandre<br><br></div><br /><hr />Get news, entertainment and everything you care about at Live.com. <a href='http://www.live.com/getstarted.aspx ' target='_new'>Check it out!</a></body>
</html>