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; 

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?

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
lami20j

Voila mon fichier texte :

http://cjoint.com/?gslz6AXODO

Je vais voir ce soir, mais tu peux déjà teste avec ça

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

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

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+

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

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