<html><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:12pt"><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-family: 'times new roman', 'new york', times, serif; font-size: 16px; color: rgb(0, 0, 0); background-color: transparent; font-style: normal;">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 style="font-family: 'times new roman', 'new york', times, serif; font-size: 16px; color: rgb(0, 0, 0); background-color: transparent; font-style: normal;"><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 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 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 style="background-color: transparent;"> for my $letter (keys %nucleotides) {</div><div style="background-color: transparent;"> $nucleotides{$letter} += ( () = $line =~ /$letter/g );</div><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 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 style="background-color: transparent; color: rgb(0, 0, 0); font-size: 16px; font-family: 'times
new roman', 'new york', times, serif; font-style: normal;">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="background-color: transparent; color: rgb(0, 0, 0); font-size: 16px; font-family: 'times new roman', 'new york', times, serif; font-style: normal;"><br></div><div style="background-color: transparent; color: rgb(0, 0, 0); font-size: 16px; font-family: 'times new roman', 'new york', times, serif; font-style: normal;">Já tentei usar sorte, e não funcionou. Desculpa galera, sou newbie demais em perl. E consigo aprender melhor com exemplos!</div><div style="background-color: transparent; color: rgb(0, 0, 0); font-size: 16px; font-family: 'times new roman', 'new york', times, serif; font-style: normal;"><br></div><div style="background-color: transparent; color: rgb(0, 0, 0); font-size: 16px; font-family: 'times new roman', 'new york', times,
serif; font-style: normal;">[]'s</div> </div></body></html>