Discussion :

[Jibees]

Je voulais savoir si il existe une commande qui permet de comparer deux fichiers. Elle retournerait par exemple FALSE si les deux fichiers son differents et TRUE si ils sont identiques.
Merci par avance ...

[Arioch]

Je voulais savoir si il existe une commande qui permet de comparer deux fichiers. Elle retournerait par exemple FALSE si les deux fichiers son differents et TRUE si ils sont identiques.
Merci par avance ...

Code :

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

1
2
3
4
use File::Compare;
        if (compare("file1","file2") == 0) {
            print "They're equal\n";
        }

[Jibees]

Je recuppere les fichiers contenus dans le dossier de chemin : $chemin de la facon suivante :

Code :

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

1
2
3
4
5
6
7
my $rep = "$chemin";
opendir(DIR,$rep); # Ouverture du dossier
@liste_dir = readdir(DIR); # Dossier --> Tableau
@liste_dir = sort @liste_dir; # On trie le tableau pour l'avoir dans l'ordre chronologique
shift(@liste_dir); # enleve les deux premiers elements
shift(@liste_dir); # . et ..
my $nb_fichiers = $#liste_dir + 1;

Je les compare ensuite pour effacer le dernier si c'est le même que le précedent :

Code :

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

1
2
 
if ( (compare(@liste_dir[$nb_fichiers - 1],@liste_dir[$nb_fichiers - 2]) == 0)  && ($nb_fichiers != 1) )

Mais il ne passe jamais dans cette boucle (alors que les deux fichiers sont absolument identiques) : je pense qu'en faite il ne compare pas les fichiers maius les chaines de caracteres.
Que faire alors pour lui faire comprendre que ce sont deux fichiers ?

[Jibees]

et voila je me suis répondu tout seul :
en fait l'interpreteur ne pouvait pas comprendre car le chemin d'acces au fichier n'était pas spécifié !
Il faut donc rajouter la ligne :

Code :

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

@liste_dir = map{"$chemin\\$_"} @liste_dir;

où $chemin est le chemin pour y acceder depuis la racine ..
Voila voila