<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;"><br>Ok, entendi. Troquei o $dna por @dna e funcionou.<br><br>Muito obrigado, Blabos.<br><br>Abraço,<br>Alexandre<br></div><br><br><hr id="stopSpelling">> Date: Thu, 7 Aug 2008 16:39:10 -0300<br>> From: blabos@gmail.com<br>> To: saopaulo-pm@mail.pm.org<br>> Subject: Re: [SP-pm] Dúvida<br>> <br>> Bioa tarde,<br>> <br>> $dna = @_;<br>> contexto lista de parametros<br>> escalar<br>> <br>> ok?<br>> <br>> <br>> <br>> 2008/8/7 Alexandre Tashima <aktashi@hotmail.com>:<br>> > Pessoal,<br>> ><br>> > Estou com uma nova dúvida. Escrevi um programinha de exercício do livro<br>> > "Beginning Perl for Bioinformatics", mas ele está com algum erro que eu<br>> > estou quebrando a cabeça e não consigo achar. É um programa para contar a<br>> > frequência de cada uma das bases em uma sequência de DNA. Sem subrotina ele<br>> > funciona, mas agora eu criei uma subrotina e um programa principal e ele não<br>> > 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>> ><br>> > ________________________________<br>> > Get news, entertainment and everything you care about at Live.com. Check it<br>> > out!<br>> > _______________________________________________<br>> > SaoPaulo-pm mailing list<br>> > SaoPaulo-pm@pm.org<br>> > http://mail.pm.org/mailman/listinfo/saopaulo-pm<br>> ><br>> _______________________________________________<br>> SaoPaulo-pm mailing list<br>> SaoPaulo-pm@pm.org<br>> http://mail.pm.org/mailman/listinfo/saopaulo-pm<br><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>