Discussion :

[narmika]

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!!!

[lami20j]

Salut,

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

Code :

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

1
2
3
 
$commande = `diff $test1 $test2`;
print $commande;

[Arioch]

Salut,

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

Code :

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

1
2
3
 
$commande = `diff $test1 $test2`;
print $commande;

Et en une seule ligne :

Code :

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

print `diff $test1 $test2`;

[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..)

[lami20j]

Salut,

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..)

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

Donc dois écrire

Code :

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

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

ou

Code :

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

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

[lami20j]

Salut,

Et en une seule ligne :

Code :

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

print `diff $test1 $test2`;

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.