Discussion :

[yjuliet]

J'ai pensé rajouté ce bout de code

Code :

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

1
2
3
 
next if ($linea =~ /tata.*|toto.*/);
next if ($lineb =~ /tata.*|toto.*/);

Le but est atteint mais j'ai des erreurs en sorti :
Use of uninitialized value in pattern match (m//) at ./test1.pl line 44, <$inputb> line 5.
Use of uninitialized value in pattern match (m//) at ./test1.pl line 45, <$inputb> line 5.

Le problème se situe dans le code rajouté et est lié à la lecture de ton fichier :

la ligne 5 du fichier doit être une ligne "vide" dans les 2 fichiers. Du coup, lorsqu'il essaye le test

Code :

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

$lineX =~ /.../

il tombe sur un opérande gauche vide.

[MarneusCalgarXP]

Je viens de tester. Le script s'execute bien (pas d'erreur) mais la sorti reste isStillEqual : que le fichier soit identique ou non

C'est normal, c'est la valeur perl pour dire "faux".
En contexte scalaire numérique, elle vaut 0.
En contexte de chaine de caractère, elle vaut la chaine vide.

Attention, elle est différente de la valeur undef, qui elle est indéfinie.

Si tu veux l'afficher correctement, tu peux remplacer ton code:

Code :

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

print "isStillEqual : $isStillEqual\n";

par

Code :

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

printf "isStillEqual : %d\n", ($isStillEqual);

Cela va forcer le contexte numérique.

Mais sinon tu peux très bien tester de la manière suivante, ca va fonctionner:

Code :

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

1
2
3
if ($isStillEqual == 0) {print "isStillEqual vaut 0";}
if (! ($isStillEqual) {print "isStillEqual vaut 'faux'";}
unless ($isStillEqual) {print "isStillEqual vaut 'faux'";}

[Maniac]

J'ai finalement utilisé ce bout de code pour la comparaison

Code :

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

1
2
3
4
5
6
7
8
9
10
 
while ($linea = <$inputa>) {
                $lineb = <$inputb>;
                next if ( ($linea =~ /$regex/) and ($lineb =~ /$regex/) ) ;
 
                if ( $linea ne $lineb ) {
                        $isEqual = 0;
                        print "$linea - $lineb";
                }
        }

Mon script fonctionne pleinement maintenant.
Merci à tous pour votre aide.