additionner les valeurs toutes les 4 lignes

Bonjour,

J'aimerai faire un traitement sur un fichier en PERL mais j'ai quelques difficultés.
Mon fichier est de la forme :
jjmmaaaa hh:mm Valeur
(On y retrouve des valeurs sur 1 semaine, chaque 1/4 d'heure)

Mon objectif est de sommer les valeurs des 1/4 heures pour avoir la valeur à l'heure.

Exemple :

23122009 00:00 150
23122009 00:15 250
23122009 00:30 350
23122009 00:45 450
24122009 00:00 5000
24122009 00:15 6000
24122009 00:30 4000
24122009 00:45 5000

Je souhaiterai obtenir ==> 23122009 00:00 1200
24122009 00:00 20000

Voilà ce que j'ai fait pour chaque heure
if ($hour =="00" ) {
$Valeur+=$val[2];
}

J'ai un programme immense et j'aimerais l'optimiser. Est ce que quelqu'un a une meilleure solution svp ??
J'avoue que je ne sais pas comment m'y prendre.

Merci d'avance aux personnes qui pourront m'éclairer.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

#!/usr/bin/env perl use strict; use warnings; use v5.10;   my $filename = shift; open my($file), '<', $filename or die "Can't open $filename : $!\n";   my $accum = 0;   while(<$file>) { my($date, $hour, $min, $val) = m/^(\d{8}) (\d{2}):(\d{2}) (\d+)/; $accum += $val; if ($min == 45) { say "$date $hour:00 $accum"; $accum = 0; } }   close $file;   __END__

---

Note que si la lisibilité de ton code t'importe peu, ce peut être fait en une ligne de commande :

Code:

---

perl -nE '/^(\d{8}) (\d{2}):(\d{2}) (\d+)/;$acc+=$4;if($3==45){say"$1 $2:00 $acc";$acc=0}' fichier >fichierRésultat

---

--
Jedaï

Citation:

---

Envoyé par Jedai

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

#!/usr/bin/env perl use strict; use warnings; use v5.10;   my $filename = shift; open my($file), '<', $filename or die "Can't open $filename : $!\n";   my $accum = 0;   while(<$file>) { my($date, $hour, $min, $val) = m/^(\d{8}) (\d{2}):(\d{2}) (\d+)/; $accum += $val; if ($min == 45) { say "$date $hour:00 $accum"; $accum = 0; } }   close $file;   __END__

---

Note que si la lisibilité de ton code t'importe peu, ce peut être fait en une ligne de commande :

Code:

---

perl -nE '/^(\d{8}) (\d{2}):(\d{2}) (\d+)/;$acc+=$4;if($3==45){say"$1 $2:00 $acc";$acc=0}' fichier >fichierRésultat

---

--
Jedaï

---

Merci Jedaï