Discussion :

[mashu]

Bonjour,

je lis un fichier contenant sur chaque ligne des data + une heure relative. Je dois garder ces data, mais je dois passer l'heure en absolu (donc cumuler chaque ligne avec la ligne n-1). J'arrive à récupérer mes data, mais je n'arrive pas trop a ajouter les valeurs heure entre elles :

EX :
A 1 0.200
B 2 0.300
C 3 0.500

je dois obtenir
A 1 0.200
B 2 0.500
C 3 1.000

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
my $fic_ouvert;
my $ligne_alire ;
my $data1;
my $data2;
my $heure;
 
open(FICHIER,"$fic_ouvert") or die "Erreur ";
 
 while ($ligne_alire  = <FICHIER>)
{
          $data1 = (split m/\s+/, $ligne_alire)[0];
          $data2 = (split m/\s+/, $ligne_alire)[1];
          $heure = (split m/\s+/, $ligne_alire)[2]);
 
 print "$data1 $data2 $heure\n"; 
}

J'obtiens donc les lignes de mon fichier. Comment ajouter les valeurs heures entre elles?

merci.

[Philou67430]

Quelque chose comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
use strict;
use warnings;
 
my $fic_ouvert = "fichier.txt";
open my $FICHIER, ">", "$fic_ouvert" or die "Erreur: $!";
my $absolu = 0;
while (my $ligne_alire  = <$FICHIER>)
{
  chomp($ligne_alire);
  my ($data1, $data2, $heure) = split m/\s+/, $ligne_alire;
  $absolu += $heure;
 
  print "$data1 $data2 $absolu\n"; 
}

[mashu]

merci c parfait !