Discussion :

[Wafa_o]

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.

[Jedai]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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ï

[Wafa_o]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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ï