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);