Discussion :

[Carlozi]

Bonjour,

Je cherche à lire deux fichiers en même temps pour effectuer un calcul entre deux données : une première donnée var1 dans un fichier1, et une deuxième donnée var2 dans un fichier2. Le calcul est une division : var1 / var2. Les fichiers sont des fichiers txt.

Si ce rapport var1/var2 dépasse une valeur VAL, je dois écrire dans un fichier3 la ligne du fichier1 et la ligne du fichier2.

Comment dois-je procéder (niveau langage PERL)?

Merci.

Carlozi.

[Jedai]

Et bien tu dois lire deux fichiers en même temps, tu ouvres les deux fichiers, tu lis une ligne de l'un, une ligne de l'autre, jusqu'au moment où tu atteins la fin d'un des fichiers....
Ton problème n'est pas très bien spécifié cependant : dois tu comparer les lignes de même numéro ou chaque ligne de l'un à chaque ligne de l'autre ?

--
Jedaï

[Carlozi]

Merci pour cette réponse rapide.

En effet ce n'est pas bien compliqué sur le principe je vous l'accorde.
Encore moins compliqué car je lis chaque ligne de l'un par rapport à chaque ligne de l'autre.

Mon problème :

J'utilise la variable $line comme ceci pour le fichier1

Code :

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

while($line = <fichier1>)

Je ne peux donc pas l'utiliser en même temps pour le fichier2... si?

Question supplémentaire que je n'ai pas précisée dans mon premier poste : je dois faire un calcul entre les deux variables que je récupère de chacun des fichiers fichier1 et fichier2. Cela va-t-il poser un souci (elles ne sont pas au format numérique car elles proviennent d'un txt)?

[Jasmine80]

Encore moins compliqué car je lis chaque ligne de l'un par rapport à chaque ligne de l'autre.

Les fichiers ont donc exactement le même nombre de lignes. Tu compares premières lignes ensemble, puis les secondes ...

Code :

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

1
2
3
4
5
6
my @file1 = <FILE1>;
my @file2 = <FILE2>;
 
for (my $i =0; $i< @file1; $i++;){
     $file1[$i]/$file2[$i];
}

Cela va-t-il poser un souci (elles ne sont pas au format numérique car elles proviennent d'un txt)

Que veux-tu dire? En perl, ton scalaire peut être un nombre ou un mot.

Code :

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

1
2
3
my $var1 = 5;
my $var2 = 5;
my $somme = $var1 + $var2;

Code :

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

1
2
3
my $var1 = "5";
my $var2 = "5";
my $somme = $var1 + $var2;

Perl reconnait que ce sont des chiffres à additionner, quelque soit l'écriture.

[Carlozi]

Oui, les fichiers ont exactement le même nombre de lignes et elles correspondent entre elles.

Pour la seconde question, je vais prendre un exemple :

Fichier1.txt, contenu :
123444
125667

Fichier2.txt, contenu :
230034
009000

Si je ne me trompe pas ces données sont interprétées par Perl comme du char? Je suppose que ca va poser un problème si je souhaite les diviser l'une à l'autre?

[Jasmine80]

ces données sont interprétées par Perl comme du char? Je suppose que ca va poser un problème si je souhaite les diviser l'une à l'autre?
Aujourd'hui 15h30

Cela ne posera pas de problème (voir mon dernier post).

[Carlozi]

Oui, les fichiers ont exactement le même nombre de lignes et elles correspondent entre elles.

Pour la seconde question, je vais prendre un exemple :

Fichier1.txt, contenu :
123444
125667

Fichier2.txt, contenu :
230034
009000

Si je ne me trompe pas ces données sont interprétées par Perl comme du char? Je suppose que ca va poser un problème si je souhaite les diviser l'une à l'autre?

PS : je n'avais pas vu la deuxième partie de ta réponse (mon pc est un peu lent...)

Merci beaucoup pour cette réponse collégiale !

[Jedai]

Si je ne me trompe pas ces données sont interprétées par Perl comme du char? Je suppose que ca va poser un problème si je souhaite les diviser l'une à l'autre?

Tu te trompes, d'une part ces données sont interprétés comme des chaînes de caractères ("char" n'existe pas en Perl), d'autre part comme te l'a dit Jasmine, si une chaîne de caractères ressemble à un nombre, Perl l'interprète comme ce nombre pour toutes les opérations numériques (dont la division fait partie, la notion de "contexte" est très importante pour programmer en Perl : les opérateurs et fonctions imposent un contexte (numérique, string, void, liste) sur leurs opérandes).

Cependant si tes fichiers sont gros, il vaut mieux les lire ligne à ligne plutôt que de les charger directement en mémoire :

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
open my($num_file), '<', $num_filename
  or die "$num_filename : $!\n";
open my($div_file), '<', $div_filename
  or die "$div_filename : $!\n";
 
open my($out_file), '>', $out_filename
  or die "$out_filename : $!\n";
 
for(;;) {
  last unless defined(my $num = <$num_file>);
  last unless defined(my $div = <$div_file>);
  chomp( $num, $div );
 
  print {$out_file} "$num / $div\n" if $num/$div > $val;
}

Quelque chose comme ça.

--
Jedaï