diff de fichier et envoi de mail automatique

Citation:

---

Envoyé par Maniac

J'ai pensé rajouté ce bout de code

Code:

---

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:

---

$lineX =~ /.../

---

il tombe sur un opérande gauche vide.

Citation:

---

Envoyé par Maniac

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:

---

print "isStillEqual : $isStillEqual\n";

---

par

Code:

---

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:

---

1 2 3

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

---

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

Code:

---

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.