Bonjour a tous!!
voila je voudrait comparer une 2 chaines
les 2 chaines sont récupérées a partir de 2 documents textes
voici un aperçu de mon code :
#!C:\\Perl\\bin\\perl
use strict;
open (IN, "test.txt") || die "Impossible d'ouvrir le fichier pour la cause suivante : $!\n";
my @tab = <IN>;
my$i = 0;
my $path = "U:\perl\dossier1/Dossier 21/tournoi pétanque 17juin 003.jpg = 66215";
foreach ($tab[$i] != $path)
{
print "$tab[$i]\n";
$i++;
}
close IN;
pour simplifier je compare avec une chaine non pas récupéreé mais entrée directement en dur dans la variable $path.
je suis censé récupérer une ligne dans un fichier puis la comparer avec toutes les lignes d'un autre fichier.
voila a quoi ressemblent mes fichiers :
U:\perl\dossier1/Dossier 21/Thumbs.db = 17408
U:\perl\dossier1/Dossier 21/tournoi pétanque 17juin 001.jpg = 36592
U:\perl\dossier1/Dossier 21/tournoi pétanque 17juin 003.jpg = 66215
U:\perl\dossier1/Dossier 21/tournoi pétanque 17juin 005.jpg = 46314
U:\perl\dossier1/Dossier 21/tournoi pétanque 17juin 007.jpg = 48875
U:\perl\dossier1/Dossier 22/Didier.zip = 269679061
U:\perl\dossier1/Dossier 22/Dossier 31/Thumbs.db = 14848
U:\perl\dossier1/Dossier 22/Dossier 31/tournoi pétanque 17juin 002.jpg = 50077
U:\perl\dossier1/Dossier 22/Dossier 31/tournoi pétanque 17juin 006.jpg = 45269
il contiennent une liste de l'arborescence de certains documents.
le but final du programme étant de répertorier les fichiers supprimés et donc les lignes du fichier n'existant plus.
ce code me parait pourtant simple mais je n'arrive pas a le faire fonctionner.... debutant oblige!!
si quelqu'un pouvait m'aider je lui en serait fort reconnaissant!!
sur ce merci bcp!! Configuration: Windows XP
Internet Explorer 6.0

