<div dir="ltr"><br><br><div class="gmail_quote">2008/8/7 Alexandre Tashima <span dir="ltr"><<a href="mailto:aktashi@hotmail.com">aktashi@hotmail.com</a>></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;"><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>> Date: Thu, 7 Aug 2008 16:39:10 -0300<br>> From: <a href="mailto:blabos@gmail.com" target="_blank">blabos@gmail.com</a><br>
> To: <a href="mailto:saopaulo-pm@mail.pm.org" target="_blank">saopaulo-pm@mail.pm.org</a><br>> Subject: Re: [SP-pm] Dúvida<div><div></div><div class="Wj3C7c"><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 <<a href="mailto:aktashi@hotmail.com" target="_blank">aktashi@hotmail.com</a>>:<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;</div></div></div></blockquote><div>Vc não precisa disso denovo... <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><div class="Wj3C7c"><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.</div></div>
</div></blockquote><div>eu uso vi! melhor ainda! :) <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><div class="Wj3C7c">
<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>> > <a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>> > <a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
> ><br>> _______________________________________________<br>> SaoPaulo-pm mailing list<br>> <a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>> <a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
<br><hr>Get news, entertainment and everything you care about at Live.com. <a href="http://www.live.com/getstarted.aspx" target="_blank">Check it out!</a></div></div></div>
<br>_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br>
<a href="http://perl-e.org">http://perl-e.org</a><br>
</div>