Discussion :

[vince2005]

Bonjour,

J'ai un problème d'interpréation de variable sur des liens UNC.

Je m'explique, j'ouvre un fichier qui contient des chemins de répertoires, dans leque je veux lister les fichiers. Mon problème, lorsque mon chemin est un lien UNC, les "\\" sont mal interprétés.

si par exemple, je remplace ma variale $RepertoireATraite par
my @ListFile = glob(/\\Serveurfinancial\\buget1\\*.*"); alors il liste le contenu du répertoire.

Merci pour votre aide.

Mon fichier TABLE_CLASSE_FILE.txt ressemble à cela :
##Table Commentaire
##------------------------
##C:\Financier\buget
##\\Serveurfinancial\buget1


Voici mon scipt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
 
my $Table_Classement="$DATAP/TABLE_CLASSE_FILE.txt" ;
my $Ligne="";
my $RepertoireATraite="";
 
open (FIC, "$Table_Classement") || die "Ouverture impossible du fichier $Table_Classement : $!";
 
while ($Ligne = <FIC> ) 
{  
     if($Ligne !~ /^##/)
     {
	$Ligne =~ s/[\t\s\#]//g; #Suppression des espaces et tabulation
	$RepertoireATraite=qw($Ligne);
	print "${Ligne}\n";
 
	my @ListFile = glob("${RepertoireATraite}/*.*");
 
	foreach $Monfichier_Entier (@ListFile) 
	{
	      $nbfic++;
                   print "$Monfichier_Entier\n";
             }
 
close (FIC);

[vince2005]

il fallait faire quotemata($Ligne)

Merci quand meme

[Philou67430]

Je ne sais pas si tu as utilisé quotemeta à la place de qw sur cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$RepertoireATraite=qw($Ligne);

Si oui, tant mieux, sinon, qw n'est pas du tout indiqué pour cette affectation. En effet, qw retourne une liste de scalaire constituée de chaque mot (séparé par espace) se trouvant en paramètre de qw. Pour une affectation en contexte scalaire de qw($Ligne), tu auras la chaine '$Ligne' (non interpolée) dans $RepertoireATraite.

[vince2005]

J'ai utilisé quotemeta.

Maintenant il voie bien mon lien UNC pour voir les fichiers et les traites.

Le problème, c'est qu'il me rajoute des "\\" à la pelle.

exemple :
\\\\Serveur1\\budget\\financier\2012\11\2012115_105423_429__PRINT.txt


Comment puis je faire pour avoir la ligne ci-dessous, à partir de ma ligne ci-dessus :
\\Serveur1\budget\financier\2012\11\2012115_105423_429__PRINT.txt

Comment subsituer les \\ par une seul \, si le cas se présente !!

Merci d'avance

[Philou67430]

Peux-tu expliquer comment tu vois les \ en plus ?

[vince2005]

En fait à partir du moment ou je mets quotemeta, dans le resultat de la variable $RepertoireATraite, les "\" sont doublés "\\".

\\\\ServerCompta\\Financier\\budget\\2012_11

Alors qu'au départ, j'avais :
\\ServerCompta\Financier\budget\2012_11

my $Table_Classement="$DATAP/TABLE_CLASSE_FILE.txt" ;
my $Ligne="";
my $RepertoireATraite="";

open (FIC, "$Table_Classement") || die "Ouverture impossible du fichier $Table_Classement : $!";

while ($Ligne = <FIC> )
{
if($Ligne !~ /^##/)
{
$Ligne =~ s/[\t\s\#]//g; #Suppression des espaces et tabulation
$RepertoireATraite=quotemeta($Ligne);
print "${Ligne}\n";

my @ListFile = glob("${RepertoireATraite}/*.*");

foreach $Monfichier_Entier (@ListFile)
{
$nbfic++;
print "$Monfichier_Entier\n";
}

close (FIC);

[vince2005]

Merci d'avance pour votre aide !! car je séche

[Philou67430]

Une substitution de ce type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$ligne=~ s{\\\\}{\\}g;

Devrait faire l'affaire, mais j'ai du mal à comprendre qu'il te faille defaire ce que quotemeta fait pour que ça fonctionne !
J'ai le sentiment que tu t'y prend mal.

Pourrais-tu indiquer ici même comment s'affiche le résultat de cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

print "${Ligne}\n";

[vince2005]

voici le résultat de mon print :
\\\\Budget\\financier\\compta\\pole\

[vince2005]

En fait mon probléme réside que mon fichier toto.txt dan lequel je vais récupérer les chemins ne sont pas forcement vu par mon programme perl, quand je souhaite scruter les fichiers contenus dans ces répertoires.

toto.txt :
#C:\Financier\buget\toto
#\\Serveurfinancial\buget1\titi

Si je ne mets pas quotemeta, alors la ligne \\Serveurfinancial\buget1 qui correspond à mon lien UNC n'est pas reconnu. Et si je mets quotemeta, alors ma ligne C:\Financier\buget n'est pas bien interprété.

1er cas :
Si je mets quotemeta, voici le résultat de mon print pour les lignes :
C\:\Financier\\\\budget\\toto.
\\\\Serveurfinancial\\buget1\\titi

2ime cas :
Si je ne mets pas le quotemeta, voici le resultat de mon print :
C:\Financier\buget\toto
\\Serveurfinancial\buget1\titi

On pourrait croire que le programme a lu les fichiers contenus dans ces répertoires, mais seul la première ligne a été vu avec X fcihiers.
Pour la seconde ligne \\Serveurfinancial\buget1\titi, il y aurait 0 fichiers, alors qu'en vérité, il y a en a + de 100.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
 
while ($Ligne = <FIC> ) 
{  
 if($Ligne !~ /^##/)
{
    $Ligne =~ s/[\t\s\#]//g; #Suppression des espaces et tabulation
    $RepertoireATraite=quotemeta($Ligne);

est ce que quelqu'un aurait une idée sur le sujet ?

[Philou67430]

Je pense simplement que la fonction glob ne supporte pas les chemins UNC.
Il te faut peut-être utiliser File::Glob::Windows ?

[vince2005]

je vais faire le test.

Merci pour toon aide.

[vince2005]

Concernant le File::Glob::Windows,

Lorsque je le lance, il m'affiche mes fichiers comme je le voudrais, mais en plus, il m'affiche tout au début de ma lise :
.
..

Comment faire pour ne pas avoir ces points.

Merci d'avance

[Philou67430]

Ajoute un filtre du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if ($file !~ /^\.{1,2}$/) {
  # traitement du fichier
}