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ï

[Jasmine80]

Code :

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

for(;;)

Je ne connais pas cette syntaxe. Est-ce en rapport avec les Filehandles ouverts ou alors est-ce un for général qui se continue jusqu'à ce qu'il tombe sur un 'last' ? Je veux bien chercher des explications dans la documentation ... mais je ne sais pas comment appeler ce type de boucle.

Merci,

[Jedai]

Code :

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

for(;;)

Je ne connais pas cette syntaxe. Est-ce en rapport avec les Filehandles ouverts ou alors est-ce un for général qui se continue jusqu'à ce qu'il tombe sur un 'last' ? Je veux bien chercher des explications dans la documentation ... mais je ne sais pas comment appeler ce type de boucle.

Ta deuxième supposition est la bonne. En fait c'est juste un idiome pour "boucle infinie" relativement fréquent dans le monde Perl/C/C++/Java.
Si on ne connait pas ça peut effectivement surprendre, mais je préfère tout de même parce que ce for(;;) ressemble moins à une vraie boucle à première vue que while(1) ou autre équivalent.

--
Jedaï

[Jasmine80]

Merci pour l'information. Ce qui est le plus étonnant en Perl, c'est le fait que l'on puisse presque toujours réaliser une même chose de plusieurs façons. Cela laisse peut-être de la liberté, mais cela complique également les choses. :-

[Carlozi]

Je tiens compte de vos remarques. Je ne peux pas prendre toutes vos bonnes suggestions... Je n'ai pas besoin du chomp et l'utilisation du for ( ;; ) est un peu trop exotique pour les développeurs ici (j'ai pas envie qu'ils viennent me casser les pieds )

Le script suivant tient-il la route?

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
29
30
31
#!./perl
 
# Loop on files to detect incoming table overflow 
$XXXTMP=$ENV{'XXXTMP'};
 
open fiin,"< $XXXTMP/TABLELIST" || die "Can't open fiin" ;
open fiin2,"<$XXXTMP/ACTUALNUMBER" || die "Can't open fiin2" ;
open fiout,"> $XXXTMP/OUTLOG" || die "Can't open fiout" ;
 
while($line = <fiin>) {
 
   $tn = substr ($line,1,15);
   $mz = substr ($line,16,19);
   $an = substr ($line2,1,4);
   $dv = $an/$mz
   $errormes = $tn.$mz.$an;
   print fiout "$errormes\n" if $dv > $val;
   }
 
close fiout;
close fiin;
close fiin2;
 
# Delete file if empty 
#  in case nothing found 
#  in previous step an
#  empty file is created
if ( -z "$XXXTMP/OUTLOG")
   { $file = "$XXXTMP/OUTLOG";
     unlink($file);
   }

[Jedai]

Si for( ; ; ) est trop exotique pour tes développeurs (c'est un idiome connu dans 4 langages mainstream pourtant... ils ne sont pas très doués, non ?) tu peux toujours mettre "while(1)" à la place.

En tout cas ton script semble avoir un petit problème : il ne lit jamais "fiin2" ...

--
Jedaï

[Carlozi]

Je ne sais pas s'ils sont nuls mais ils sont pas exotiques !

J'ai corrigé ce que vous m'avez signalé

Ca vous semble correct maintenant ?

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
29
30
31
32
 
#!./perl
 
# Loop on files to detect incoming table overflow 
$XXXTMP=$ENV{'XXXTMP'};
 
open fiin,"< $XXXTMP/TABLELIST" || die "Can't open fiin" ;
open fiin2,"<$XXXTMP/ACTUALNUMBER" || die "Can't open fiin2" ;
open fiout,"> $XXXTMP/OUTLOG" || die "Can't open fiout" ;
 
while($line = <fiin> && $line = <fiin2>) {
 
   $tn = substr ($line,1,15);
   $mz = substr ($line,16,19);
   $an = substr ($line2,1,4);
   $dv = $an/$mz
   $errormes = $tn.$mz.$an;
   print fiout "$errormes\n" if $dv > 0.80;
   }
 
close fiout;
close fiin;
close fiin2;
 
# Delete file if empty 
#  in case nothing found 
#  in previous step an
#  empty file is created
if ( -z "$XXXTMP/OUTLOG")
   { $file = "$XXXTMP/OUTLOG";
     unlink($file);
   }

[Jedai]

J'ai corrigé ce que vous m'avez signalé

Ca vous semble correct maintenant ?

Tu fais ça complètement à l'aveuglette n'est ce pas ? Tu ne comprends pas du tout ce que tu fais ?

Peut être devrais tu simplement apprendre ce que fait open et <> avant d'essayer toutes les combinaisons jusqu'à trouver ce qui marche ? Ou peut-être même est-ce plus fondamental : comprends-tu vraiment ce qu'est une variable ? Qu'affecter à une variable écrase la valeur précédente ?

--
Jedaï

PS : ou alors tu fais simplement une erreur de frappe dans la condition de ta boucle... Dans ce cas ce n'est pas très propre mais pas aussi catastrophique.
Je te signale également que tu devrais utiliser les pragmas "strict" et "warnings" pour limiter les risques d'erreur.

[Carlozi]

Si je comprends ce que je fais lol
Open c'est pour ouvrir le fichier lol
Et re lol j'ai pas mis le 2 à line2. Il fait chaud ici et c'est la fin de journée, dur dur
<> dans une boucle while et comme c'est écrit dans mon script ça permet d'affecter chaque ligne du fichier à une variable.
Après je prends ce qui m'interesse avec les substrings, je fais mon calcul et j'inscris dans le fichier output si je dépasse la valeur de 0.80.
Maintenant, j'ai sans doute des erreurs dans mon scripts.

Allez je fais un petit effort : merci de me recadrer

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
29
30
31
32
 
#!./perl
 
# Loop on files to detect incoming table overflow 
$XXXTMP=$ENV{'XXXTMP'};
 
open fiin,"< $XXXTMP/TABLELIST" || die "Can't open fiin" ;
open fiin2,"< $XXXTMP/ACTUALNUMBER" || die "Can't open fiin2" ;
open fiout,"> $XXXTMP/OUTLOG" || die "Can't open fiout" ;
 
while($line = <fiin> && $line2 = <fiin2>) {
 
   $tn = substr ($line,1,15);
   $mz = substr ($line,16,19);
   $an = substr ($line2,1,4);
   $dv = $an/$mz
   $errormes = $tn.$mz.$an;
   print fiout "$errormes\n" if $dv > 0.80;
   }
 
close fiout;
close fiin;
close fiin2;
 
# Delete file if empty 
#  in case nothing found 
#  in previous step an
#  empty file is created
if ( -z "$XXXTMP/OUTLOG")
   { $file = "$XXXTMP/OUTLOG";
     unlink($file);
   }

[Jedai]

<> dans une boucle while et comme c'est écrit dans mon script ça permet d'affecter chaque ligne du fichier à une variable.

<> et while() n'ont pratiquement aucune relation excepté que while( blabla = <machin> ) est en réalité équivalent à while( defined( blabla = <machin> ) ) et while( <machin> ) est équivalent à while( defined( $_ = <machin> ) ). <> marche en dehors d'une boucle while tout aussi bien.
(ton && interfère avec cette redéfinition remarque, ce qui est l'une des raisons pour lesquelles je n'aime pas trop cette formulation, mais dans ton cas ça devrait marcher ok)

--
Jedaï

[Carlozi]

Ok,

Je fais les tests demain.

Encore merci pour votre aide

[Carlozi]

Il semble que ça ne fonctionne pas de la façon que je l'ai écrit, lors de l'exécution j'ai le message :

Can' modify logical and in scalar assignement at XXXXX\Analyze.pl (c'est le nom du fichier où j'ai placé mon script) near <fiin2>, line 10.

Dois-je reprndre la solution du for ( ;; )? Où est-il possible de corriger cela?

Merci.

Thierry.

Pour rappel, le script :

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
29
30
31
32
 
#!./perl
 
# Loop on files to detect incoming table overflow 
$XXXTMP=$ENV{'XXXTMP'};
 
open fiin,"< $XXXTMP/TABLELIST" || die "Can't open fiin" ;
open fiin2,"< $XXXTMP/ACTUALNUMBER" || die "Can't open fiin2" ;
open fiout,"> $XXXTMP/OUTLOG" || die "Can't open fiout" ;
 
while($line = <fiin> && $line2 = <fiin2>) {
 
   $tn = substr ($line,1,15);
   $mz = substr ($line,16,19);
   $an = substr ($line2,1,4);
   $dv = $an/$mz
   $errormes = $tn.$mz.$an;
   print fiout "$errormes\n" if $dv > 0.80;
   }
 
close fiout;
close fiin;
close fiin2;
 
# Delete file if empty 
#  in case nothing found 
#  in previous step an
#  empty file is created
if ( -z "$XXXTMP/OUTLOG")
   { $file = "$XXXTMP/OUTLOG";
     unlink($file);
   }

[djibril]

avant toute chose, ton code n'est pas du tout propre.

1. met un shebang propre (#!/usr/bin/perl)
2. Utilise les modules d'erreurs. use strict; use warnings;
3. Met tes filehandle en majuscule ou utilise des variables

Ex:

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
29
30
31
32
33
#!/usr/bin/perl
use strict;
use warnings;
 
# Loop on files to detect incoming table overflow 
$XXXTMP=$ENV{'XXXTMP'};
 
open FIIN,"< $XXXTMP/TABLELIST" || die "Can't open fiin" ;
open FIIN2,"< $XXXTMP/ACTUALNUMBER" || die "Can't open fiin2" ;
open FIOUT,"> $XXXTMP/OUTLOG" || die "Can't open fiout" ;
 
while($line = <fiin> && $line2 = <fiin2>) {
 
   $tn = substr ($line,1,15);
   $mz = substr ($line,16,19);
   $an = substr ($line2,1,4);
   $dv = $an/$mz
   $errormes = $tn.$mz.$an;
   print fiout "$errormes\n" if $dv > 0.80;
   }
 
close FIIN;
close FIIN2;
close FIOUT;
 
# Delete file if empty 
#  in case nothing found 
#  in previous step an
#  empty file is created
if ( -z "$XXXTMP/OUTLOG")
   { $file = "$XXXTMP/OUTLOG";
     unlink($file);
   }