[PERL] comparaison de chaines

Résolu/Fermé
Signaler
Messages postés
10
Date d'inscription
vendredi 15 juin 2007
Statut
Membre
Dernière intervention
26 juillet 2007
-
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
-
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!!

7 réponses

Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 562
Salut,

essaie comme ça
#!C:\\Perl\\bin\\perl 
use strict; use warnings;

open IN, "test.txt" or die "E/S : $!\n"; 


my $path = 'U:\perl\dossier1/Dossier 21/tournoi pétanque 17juin 003.jpg = 66215'; 

print grep { /^$path$/ } <IN>;
close IN; 
--
lami20j
Messages postés
10
Date d'inscription
vendredi 15 juin 2007
Statut
Membre
Dernière intervention
26 juillet 2007

Salut!

Lorsque j'execute ton code il ne se passe rien!

je l'ai un peu modifié :

"print grep ( $path , <IN>);"
au lieu de :
"print grep { /^$path$/ } <IN>;"

et cela m'affiche alors tout le contenu de mon fichier texte;

1-Quelle est la différence entre ces 2 écriture : '$path' et '/^$path$/'.
2-Finalement comment faire pour tester le présence de ma chaine '$path' dans mon fichier?
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 562
Salut,

mets ton fichier sur cjoint pour le tester
si je t'ai donné la commande c'est parce que ça marche dans l'environnement que je l'ai testé
je vais t'expliqué après
Messages postés
10
Date d'inscription
vendredi 15 juin 2007
Statut
Membre
Dernière intervention
26 juillet 2007

voila mon fichier texte :

https://www.cjoint.com/?gslz6AXODO
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 562
Je vais voir ce soir, mais tu peux déjà teste avec ça

print grep { /^$path/ } <IN>;
ou
print grep { /$path/ } <IN>;

mais en aucun cas comme tu l'as fait
print grep ( $path , <IN>);

Il ne faut pas exces avec les paranthèses :-))
il faut voir la fonction grep de Perl pour comprendre
Messages postés
10
Date d'inscription
vendredi 15 juin 2007
Statut
Membre
Dernière intervention
26 juillet 2007

Salut!

Finalement j'ai eu recours a une technique différente pour parcourir mes chaines :


#############################################################
our $presence = 0;
print "Fonction compare \n";

chomp($path); #retire le dernier caractère de la chaine; ici le "\n"; pour permettre la comparaison de chaines.
for ($i=0 ; $i <= $#tab ; $i++)
{
chomp(@tab[$i]);#retire le dernier caractère de la chaine; ici le "\n"; pour permettre la comparaison de chaines.

if ($path eq @tab[$i])
{
$presence = 1;
}

#seek (COMP,0,0); # retour au debut du fichier.
}
$path = $path."\n"; # on remet le dernier caraéctère de fin de chaine pour une ecriture ulterieure dans le fichier plus lisible
return $presence; # On retourne la valeur de resultat du test.
#############################################################

voila certainement plus barbare que "grep" mais cela fonctionne et au moins ... je comprend comment lol!!!

mais merci beaucoup a Lami20j pour son aide

a+
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 562
Salut,

je n'ai pas repondu puisqu'il y a une chose que je n'ai pas compris (en bref sous win ne fonctionne pas - je vais voir plus tard pourquoi)

le plus important c'est que as obtenu ce que tu veux

En revanche si tu veux tu peux tester ce code
chomp @tab;
foreach(@tab){
  $presence = 1 if $path eq $_;
}
qui remplace celui là

for ($i=0 ; $i <= $#tab ; $i++)
{
chomp(@tab[$i]);

if ($path eq @tab[$i])
{
$presence = 1;
}


En bref si tu peux faire chomp directement sur le tableau sans avoir besoi de faire une boucle

aussi celui là

foreach(chomp @tab){
  $presence = 1 if $path eq $_;
}