[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