<div dir="ltr">Hash não mantem ordem.<div><br></div><div>Você pode criar uma array com a ordem desejada e mandar escrever na ordem.</div><div><br></div><div>for my $letra_atual (qw /A C G T/) {</div><div> <span style="background-color:transparent;font-family:'times new roman','new york',times,serif;font-size:16px">print OFILE $nucleotides{$letra_atual}, " ";</span></div>
<div>}<br></div><div><br></div><div>Lembrando que fazendo assim, vai ter um espaço a mais no final do arquivo, isso importa?</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/7/15 Rafael Silveira <span dir="ltr"><<a href="mailto:dev.silveira@yahoo.com" target="_blank">dev.silveira@yahoo.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div style="font-size:12pt;font-family:times new roman,new york,times,serif"><div style="font-family:'times new roman','new york',times,serif;font-size:12pt">
Valeu Tiago.</div><div style="font-family:'times new roman','new york',times,serif;font-size:12pt"><br></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:'times new roman','new york',times,serif">
Cara, na primeira vez eu usei hash. Porém tive problemas para executar o counting, mas ai dei uma pesquisada e ficou assim:</div><div class="im"><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:'times new roman','new york',times,serif">
<br></div><div style="background-color:transparent">#!/usr/bin/env perl</div><div style="background-color:transparent"><br></div><div style="background-color:transparent">use
strict;</div><div style="background-color:transparent">use warnings;</div><div style="background-color:transparent"><br></div><div style="background-color:transparent">open IFILE, '<', '../../data/string/counting.txt' or die('File not found');</div>
<div style="background-color:transparent"><br></div></div><div style="background-color:transparent">my %nucleotides = (</div><div style="background-color:transparent"> 'A' => 0,</div><div style="background-color:transparent">
'C' => 0,</div><div style="background-color:transparent"> 'G' => 0,</div><div style="background-color:transparent"> 'T' => 0,</div><div class="im"><div style="background-color:transparent">
);</div><div style="background-color:transparent"><br></div><div style="background-color:transparent">while (my $line = <IFILE>) {</div><div style="background-color:transparent"> chomp $line;</div><div style="background-color:transparent">
</div></div><div style="background-color:transparent"> for my $letter (keys %nucleotides) {</div><div style="background-color:transparent"> $nucleotides{$letter} += ( () = $line =~ /$letter/g );</div><div class="im">
<div style="background-color:transparent"> }</div><div style="background-color:transparent">}</div><div style="background-color:transparent"><br></div><div style="background-color:transparent">close IFILE;</div><div style="background-color:transparent">
<br></div><div style="background-color:transparent">open OFILE, '>', '../../output/string/counting.txt' or die('Can\'t create file');</div></div><div style="background-color:transparent">print OFILE join(' ', values(%nucleotides));</div>
<div style="background-color:transparent">close OFILE;</div><div style="background-color:transparent"><br></div><div>Porém não mantém a ordem A C G T. O Perl muda a ordem dessa lista baseado nas letras (a que vier primeiro) que ele encontra no arquivo?</div>
<div style="font-style:normal;font-size:16px;background-color:transparent;font-family:'times new roman','new york',times,serif"><br></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:'times new roman','new york',times,serif">
Já tentei usar sorte, e não funcionou. Desculpa galera, sou newbie demais em perl. E consigo aprender melhor com exemplos!</div><span class="HOEnZb"><font color="#888888"><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:'times new roman','new york',times,serif">
<br></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:'times new roman','new york',times,serif">[]'s</div> </font></span></div></div><br>=begin disclaimer<br>
Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div><span style="color:rgb(51,51,51);font-size:x-small">Saravá,</span></div><div><span style="color:rgb(51,51,51);font-size:x-small">Renato CRON</span></div>
<div><div style="text-align:right"><font size="1" color="#333333"><a href="http://www.renatocron.com/blog/" target="_blank">http://www.renatocron.com/blog/</a></font></div></div><div style="text-align:right"><font size="1" color="#333333"><a href="http://twitter.com/#!/renato_cron" target="_blank">@renato_cron</a></font></div>
</div>