[PERL] comparaison de chaines Résolu/Fermé

Question

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 : $!
";
	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]
";
	$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!!

lami20j · Answer

Salut,

essaie comme ça#!C:\Perl\bin\perl 
use strict; use warnings;

open IN, "test.txt" or die "E/S : $!
"; 


my $path = 'U:\perl\dossier1/Dossier 21/tournoi pétanque 17juin 003.jpg = 66215'; 

print grep { /^$path$/ } <IN>;
close IN; --
lami20j

snowsurfer69 · Answer

Salut! Lorsque j'execute ton code il ne se passe rien! je l'ai un peu modifié : "print grep ( $path , );" au lieu de : "print grep { /^$path$/ } ;" 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?

lami20j · Answer

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

snowsurfer69 · Answer

voila mon fichier texte : 

https://www.cjoint.com/?gslz6AXODO

lami20j · Answer

Je vais voir ce soir, mais tu peux déjà teste avec ça print grep { /^$path/ } ;ou print grep { /$path/ } ; mais en aucun cas comme tu l'as fait print grep ( $path , ); Il ne faut pas exces avec les paranthèses :-)) il faut voir la fonction grep de Perl pour comprendre

snowsurfer69 · Answer

Salut!

Finalement j'ai eu recours a une technique différente pour parcourir mes  chaines : 


#############################################################
our $presence = 0;
	print "Fonction compare 
";
	
	chomp($path); #retire le dernier caractère de la chaine; ici le "
"; 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 "
"; pour permettre la comparaison de chaines.
					
			if ($path eq @tab[$i])
				{
					$presence = 1;
				}
						
	#seek (COMP,0,0); # retour au debut du fichier.
			}
		$path = $path."
"; # 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+

lami20j · Answer

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 $_;
}

[PERL] comparaison de chaines

7 réponses

Discussions similaires