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=begin disclaimer
Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: [email protected]
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer
