Comment récupérer une sortie d'une commande schell dans un script perl

Dans mon script perl je fais une comparaison de deux fichiers binaires avec la commande
"diff" le genre ( sur la console) :
narmika@: diff test1.g test2.g

si les deux fichiers différent, la console affiche "diffère" sinon elle n'affiche rien.

Pour integrer ceci ds mon script perl j'ai mis :

$commande = "diff $test1 $test2";

open(COMMAND,"$commande |");
while(<COMMAND>){
print "$_";
}
je me demande comment faire pour stocker le résultat soit dans un fichier soit un un message qui s'affiche!!!

Salut,

la sortie d'une commande on peut la récupérer avec les apostrophes inverses `` ou avec qx{}

Code:

---

1 2 3

$commande = `diff $test1 $test2`; print $commande;

---

Citation:

---

Envoyé par lami20j

Salut,

la sortie d'une commande on peut la récupérer avec les apostrophes inverses `` ou avec qx{}

Code:

---

1 2 3

$commande = `diff $test1 $test2`; print $commande;

---

---

Et en une seule ligne :

Code:

---

print `diff $test1 $test2`;

---

:yaisse2:

Oui, t'as raison pr les dux crochets, mais pr le print '......', ca ne marche pas, apparement le résultat est binaire soit un'0' soit un '1':

$test = `diff $test2 $test1`;
if (!$test)
{ print "Les deux fichiers diffèrent";
}

J'ai fait alors ainsi, et ça a marché, donc 0 si ca diffère et un 1 si c identik..

Tu en penses quoi!! ( ben j'ai fait ke tatonner..):roll:

Salut,

Citation:

---

Envoyé par narmika

Oui, t'as raison pr les dux crochets, mais pr le print '......', ca ne marche pas, apparement le résultat est binaire soit un'0' soit un '1':

$test = `diff $test2 $test1`;
if (!$test)
{ print "Les deux fichiers diffèrent";
}

J'ai fait alors ainsi, et ça a marché, donc 0 si ca diffère et un 1 si c identik..

Tu en penses quoi!! ( ben j'ai fait ke tatonner..):roll:

---

Si $test est vide alors les fichies sont égaux.

Donc dois écrire

Code:

---

1 2 3

$test = `diff $test2 $test1`; print "Les deux fichiers diffèrent" if $test;

---

ou

Code:

---

print "Les deux fichiers sont diffèrents" if `diff $test2 $test1`;

---

Salut,

Citation:

---

Envoyé par Arioch

Et en une seule ligne :

Code:

---

print `diff $test1 $test2`;

---

:yaisse2:

---

Oui je le sais ;) , je suis parti sur l'idée de récupération (c'est ça qu'il demande) en vue de traitement.