Discussion :

[mashu]

Bonjour,

le lis un fichier contenant des infos :

A 1 0.400
B 2 1.000
C 3 1.200
D 4 1.300

je dois calculer la différence qu'il y a entre entre chaque ligne de la colonne 3.

Je devrais obtenir la meme valeur sur la ligne 1 (0.400) et faire des souscractions sur les suivantes avec les lignes précédentes :

A 1 0.400
B 2 0.600
C 3 0.200
D 4 0.100

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
use strict;
use warnings;
 
my $fic_ouvert = "fichier.txt";
open my $FICHIER, ">", "$fic_ouvert" or die "Erreur: $!";
my $calcul;
while (my $ligne_alire  = <$FICHIER>)
{
  chomp($ligne_alire);
  my ($data1, $data2, $num) = split m/\s+/, $ligne_alire;
  $num = abs($num);
  $calcul -= $num;
 
  print "$data1 $data2 $calcul\n"; 
}

Le pb c'est que ca marche pour les 2 premieres lignes, mais ensuite ca ne me retourne pas les bons résultats

Peut on m'aiguiller?

Merci

[mamax29]

C'est normal que cela ne fonctionne pas ;-)

Ton algo est mauvais, puisque tu soustrais la nouvelle ligne avec le résultat du calcul précédant et non la valeur de la ligne précédante...


il faut dans ton cas stocké la valeur précédente dans une variable qui va te servir au calcul, et faire une exception pour la première ligne.

voici un exemple:

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
23
24
25
26
27
28
use strict;
use warnings;
 
my $fic_ouvert = "./fichier.txt";
open my $FICHIER, "<", "$fic_ouvert" or die "Erreur: $!";
my $calcul;
my $tmp_value;
my $first = 0;
 
while (my $ligne_alire  = <$FICHIER>)
{
  chomp($ligne_alire);
  my ($data1, $data2, $num) = split m/\s+/, $ligne_alire;
  $first += 1;
  if ( $first == 1)
  {
  	$calcul = $num;
  	$tmp_value = $num;
  }
  else
  {
  	$calcul = $num - $tmp_value;
  	$tmp_value = $num;
  }
 
 
  print "$data1 $data2 $calcul\n"; 
}

[mashu]

Merci mamax29 ! Ca fonctionne parfaitement, et en plus j'ai compris mon erreur

A+