<div dir="ltr">Alexandre, fiz uma observação.<br><br><div class="gmail_quote"><span dir="ltr"></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div><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></div></div></blockquote><div><br>Não precisa usar novamente: strict e warnings.<br>
</div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div><div style="text-align: left;"><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></div></blockquote></div></div>