Script para Filtragem e soma de dados em arquivos CSV - Perl

pasf2009
(usa CentOS)

Enviado em 19/10/2013 - 17:33h

Boa tarde,

Sou novo no uso da linguagem perl e estou querendo algumas sugestões de como gerar um script para realizar a filtragem e soma de alguns dados que possuo em uma tabela .csv. Possuo uma tabela com colunas de valores aferidos para N individuos. Nessa tabela, um mesmo individuo pode ter mais de um valor para cada medida.
Ex.:

individuo medida1 medida2
1 5 6
1 6 7
1 10 12
2 11 13
2 12 15
3 15 16
3 17 18
3 19 25


A partir dos dados, eu gostaria de gerar um arquivo contendo a soma dos valores, de cada indivíduo, para uma determinada medida em um determinado intervalo. Por exemplo, a soma dos valores da medida2 entre 15 e 20 para os três indivíduos. Que nesse caso seria: individuo 1=0; individuo2= 15; individuo3= 34.

Qual forma vocês sugerem ?

Muito obrigado.

dvinciguerra
(usa Debian)

Enviado em 07/12/2013 - 23:32h

Beleza cara!?

Poderia dar mais informações sobre este problema!?

Não entendi muito bem o seu problema ou o que quer/como quer fazer o calculo dos valores, mas para começar de uma forma simples pode fazer desse jeito:

#!/usr/bin/env perl

use strict;

use warnings;

use 5.010;



while(<DATA>){

    chomp;



    # parse row

    my ($individuo, $v1, $v2) = split /;/, $_;

    

    #TODO do something

    

    # output line

    say $_;

}



__DATA__

1;5;6

1;6;7

1;10;12

2;11;13

2;12;15

3;15;16

3;17;18

3;19;25 



 

Se não quiser pegar os dados de <DATA> e quiser pegar de um arquivo, pode dar um open no arquivo e pegar os valores linha a linha.

Para fazer a leitura do arquivo recomendo os modulos:

IO::File
https://metacpan.org/pod/IO::File

use IO::File;

 

my $fh = new IO::File;

if ($fh->open("< arquivo.csv")) {

    # do something ...

    $fh->close;

}

 

IO::All
https://metacpan.org/pod/release/INGY/IO-All-0.50/lib/IO/All.pod

use IO::All;



my $file < io "arquivo.csv";

 

Esse ultimo em especial tem uma api bem bacana, simples e com muita coisa útil!



Abraço,