Sujet Précédent Sujet Suivant

[PERL] comparaison de chaines

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

Réponse 1 / 7
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
15 juin 2007 à 16:34
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
0
Réponse 2 / 7
snowsurfer69 Messages postés 10 Date d'inscription vendredi 15 juin 2007 Statut Membre Dernière intervention 26 juillet 2007
18 juin 2007 à 09:49
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?
0
Réponse 3 / 7
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
18 juin 2007 à 11:03
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
0
Réponse 4 / 7
snowsurfer69 Messages postés 10 Date d'inscription vendredi 15 juin 2007 Statut Membre Dernière intervention 26 juillet 2007
18 juin 2007 à 11:28
voila mon fichier texte :

https://www.cjoint.com/?gslz6AXODO
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
18 juin 2007 à 11:57
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
0
Réponse 6 / 7
snowsurfer69 Messages postés 10 Date d'inscription vendredi 15 juin 2007 Statut Membre Dernière intervention 26 juillet 2007
20 juin 2007 à 09:19
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+
0
Réponse 7 / 7
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
20 juin 2007 à 10:25
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 $_;
}
0

Discussions similaires

Aucune chaines lors de la recherche automatique
Maxdeuche -
matousurnet -

12 réponses
N'arrive pas a installer ses chaînes tv
Sowo -
nadellen -

5 réponses
Décryptage de chaînes précédées de '$'.
Cubde -
Rachid -

5 réponses
décryptage de chaines payantes par satellite
260358 -
Aranud87 -

3 réponses
chaînes sur tv tcl
sacou71 -
baladur13 -

5 réponses