[SP-pm] Melhor forma para...
Rafael Silveira
dev.silveira at yahoo.com
Mon Jul 15 15:26:25 PDT 2013
Valeu Tiago.
Cara, na primeira vez eu usei hash. Porém tive problemas para executar o counting, mas ai dei uma pesquisada e ficou assim:
#!/usr/bin/env perl
use strict;
use warnings;
open IFILE, '<', '../../data/string/counting.txt' or die('File not found');
my %nucleotides = (
'A' => 0,
'C' => 0,
'G' => 0,
'T' => 0,
);
while (my $line = <IFILE>) {
chomp $line;
for my $letter (keys %nucleotides) {
$nucleotides{$letter} += ( () = $line =~ /$letter/g );
}
}
close IFILE;
open OFILE, '>', '../../output/string/counting.txt' or die('Can\'t create file');
print OFILE join(' ', values(%nucleotides));
close OFILE;
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?
Já tentei usar sorte, e não funcionou. Desculpa galera, sou newbie demais em perl. E consigo aprender melhor com exemplos!
[]'s
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20130715/270590ac/attachment.html>
More information about the SaoPaulo-pm
mailing list