Discussion :

[narmika]

Bonjour,

J'ai un souci de compréhension. J'ai deux fichiers identiques. Je veux les comparer des deux sens. Si chaque ligne ds fic1 existe elle bien ds fic2 et le sens inverse.

Mon programme d'un sens il marche très bien ( en utilisant biensur '=~'). Et quand je fais la même procédure de comparaison dans le sens inverse ça ne marche pas. Et pourtant j'utilse les chomp des deux côtés.

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
 
 
sub compare_fic1_fic2 {
open (F, "a.txt");
my $ok = 0;
while($ligne1 = <F>){
my $test = 0;
chomp($ligne1);
my $li = $ligne1; 
open (X, ,"$b.txt");
     while($ligne2 = <X>){
     chomp($ligne2);
     $ligne2 =~ s/\[(\d+)\]/\1/;   # J'enlève les crochets pour comparer car 
     $ligne1 =~ s/\[(\d+)\]/\1/;    # avec crochets la comparaison ne pass pas
     if ($ligne1 =~ /$ligne2/){
     $test = 1;
     }
     }
close X;
if($test == 0) {
print "ERROR: $li (fic1) ne se trouve pas dans (fic2)\n\n";
 $ok = 1;
}
}
if($ok == 0){
print "pas d'erreur \n\n";
}
close F;
}

Et quand je fais l'operation inverse donc :

compare_fic2_fic1 avec le même bloc j'échange juste les noms des fichiers , la comparaison ne marche pas. et ça me donen toujours :
la ligne ds fic2 n'existe pas dans fic1.

Peut être quelque chose de futil m'échappe...Merci

[Arioch]

Bonjour,

peut-être suis-je à côté de la plaque pour la réponse mais cette syntaxe là :

Code :

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

if ($ligne1 =~ /$ligne2/){

signifie uniquement "est-ce que $ligne1 contient $ligne2 ?", et pas "est-ce que $ligne2 est identique à $ligne1 ?".

Pour faire une recherche à l'identique en passant par les expressions régulières, c'est ceci qu'il faut indiquer :

Code :

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

if ($ligne1 =~ /^$ligne2$/){

ce qui, dans ce cas, correspond exactement à :

Code :

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

if ($ligne1 eq $ligne2){

[narmika]

J'ai pas très bien saisi. Pour faire le test des deux côtes je fais un premier check avec la fonction désignée. Et quand je veux faire le deuxieme check dans l'autre sens j'utilise la meme fonction en échangeant l'ordre des fichiers dans le code. Donc pratiquement ça doit marcher. pour :

Code :

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

1
2
 
if ($ligne1 =~ /^$ligne2$/)

ne signifie pas que le check se fait des deux cotes, car ça se peut qu'une ligne dans fic2 et qui n'existe pas dans fic1.

Peut etre tu veux dire si bien la ligne dans fic 1 est identique a la ligne dans fic 2. et là je suis d'accord avec toi.

[Arioch]

Peut etre tu veux dire si bien la ligne dans fic 1 est identique a la ligne dans fic 2. et là je suis d'accord avec toi.

C'est bien ce que je disais (et donc, par extension, je suis à côté de la plaque pour ton pb)

[narmika]

En plus quand je fais 'eq' ou "^$ligne$"...Ben ça ne marche plus...Et pourtant quand j'ouvre les fichiers , ils sont identiques. a a b b...

Si quelqu'un a une proposition ell sera la bienvenue.

[narmika]

Qu'est ce qui peut être dans les lignes fic1 et c'est pas le cas dans les lignes de fic2 et que je ne vois pas. J'ai fait pourtant chomp des deux cotes :

- eq ne marche pas des deux cotes.
- =~ marche que de fic1 vers fic2.

Merci

[Arioch]

est-ce que les deux fichiers ont bien le caractère délimiteur de fin de ligne "\n" ?

Piste éventuelle à creuser car pour les fichiers txt générés sous Windows par exemple, c'est "\r\n" si je ne me plante pas.

Pssssst, si pas indiscret, peux-tu nous montrer en pièces jointes tes deux fichiers ?