Perl

[Résolu][Perl]Regrouper, compter et additionner

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Résolu][Perl]Regrouper, compter et additionner

Sethenssen

Bonjour,

J'ai tout un script qui me permet d'avoir ce résultat.
Cela représente:
date, heure et minute|une carte|la quantité|un volume de donnée

Code :

201306190000|TEST_U.317|1|3000000
201306190000|TEST_U.317|1|3750000
201306190000|TEST_U.372|1|3750000
201306190001|TEST_U.313|1|3400000
201306190001|TEST_U.315|1|3750000
201306190001|TEST_U.317|1|3000000
201306190001|TEST_U.372|1|3000000
201306190002|TEST_U.315|1|3750000
201306190002|TEST_U.317|1|3000000
201306190002|TEST_U.317|1|4000000
201306190002|TEST_U.372|1|4000000
201306190003|TEST_U.315|1|3750000

Il ne me reste plus qu'une dernière étape qui est de regrouper ces données pour les additionner
Exemple:

Code :

201306190000|TEST_U.317|1|3000000
201306190000|TEST_U.317|1|3750000

Cette première ligne est sur la même ligne de temps et concerne la même carte.
Il faut donc additionner la quantité car nous en avons 2 et additionner le volume de donnée.

Ce qui doit donner:

Code :

201306190000|TEST_U.317|2|6750000
201306190000|TEST_U.372|1|3750000
201306190001|TEST_U.313|1|3400000
201306190001|TEST_U.315|1|3750000
201306190001|TEST_U.317|1|3000000
201306190001|TEST_U.372|1|3000000
201306190002|TEST_U.315|1|3750000
201306190002|TEST_U.317|2|7000000
201306190002|TEST_U.372|1|4000000
201306190003|TEST_U.315|1|3750000

Je ne sais pas pourquoi mais j'ai du mal avec cette dernière étape alors que cela doit être tout simple avec un hash je suppose.
Si quelqu'un peut m'aider,
Merci par avance.

Message édité par Sethenssen le 25-06-2013 à 08:51:32

Publicité

gilou

Modérateur
Modzilla

Bon, il y a peut être mieux, mais ceci devrait faire l'affaire:

Code :

#!/usr/bin/perl
use strict;
use warnings;
use autodie;
 
my %hash;
# utilisation de DATA juste pour le test, afin de tout avoir en un fichier
while (<DATA> ) {
  chop;
  my @fields = split '\|', $_;
  $hash{$fields[0]}{$fields[1]} //= [0, 0];
  $hash{$fields[0]}{$fields[1]}->[0] += $fields[2];
  $hash{$fields[0]}{$fields[1]}->[1] += $fields[3];
}
 
foreach my $k1 (sort (keys %hash)) {
  foreach my $k2 (sort (keys %{$hash{$k1}})) {
    print $k1, "|", $k2, "|", $hash{$k1}{$k2}->[0], "|", $hash{$k1}{$k2}->[1], "\n";
  }
}
 
 
__DATA__
201306190000|TEST_U.317|1|3000000
201306190000|TEST_U.317|1|3750000
201306190000|TEST_U.372|1|3750000
201306190001|TEST_U.313|1|3400000
201306190001|TEST_U.315|1|3750000
201306190001|TEST_U.317|1|3000000
201306190001|TEST_U.372|1|3000000
201306190002|TEST_U.315|1|3750000
201306190002|TEST_U.317|1|3000000
201306190002|TEST_U.317|1|4000000
201306190002|TEST_U.372|1|4000000
201306190003|TEST_U.315|1|3750000

A+,

Message édité par gilou le 24-06-2013 à 14:36:50

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

Sethenssen

Bonjour,
Merci Gilou !

J'ai une question car je ne comprends pas cette ligne

Code :

$hash{$k1}{$k2}->[0]

Peux-tu me dire ce qu'elle fait exactement?

gilou

Modérateur
Modzilla

la structure de donnée est ainsi
%hash est un hash de hash dont la valeur est une référence à une liste comme indiqué ici
$hash{$fields[0]}{$fields[1]} //= [0, 0]
soit quand l'entrée n'est pas définie
$hash{$fields[0]}{$fields[1]} = [0, 0]
en perl, [...] note une référence à une liste (anonyme)

$hash{$k1}{$k2} est donc une référence à une liste
$hash{$k1}{$k2}->[0] est la première valeur de la liste.
bref c'est la même chose que @{$hash{$k1}{$k2}}[0]

A+,

Message édité par gilou le 25-06-2013 à 10:41:45

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

FORUM HardWare.fr

Programmation

Perl

[Résolu][Perl]Regrouper, compter et additionner

Sujets relatifs
installation activate perl version 5.16 sous linux	Regrouper plusieur excel dans un seul .xlsx
script perl	[Résolu][Perl] Découper un fichier en plusieurs et optimisation
Faire échap en expect	Comparaison avec perl
perl + comparaison + xml	Faire un bouton coloré PERL GTK2
exécution script Perl sous mac impossible	compter sous matlab
Plus de sujets relatifs à : [Résolu][Perl]Regrouper, compter et additionner

Page générée en 0.037 secondes