Discussion :

[shalfat]

Bonjour à tous.

J'ai crée un script perl qui fait automatiquement le parsing de plusieurs fichiers excel d'un répertoire et renvoi le résultat que j'ai codé dans un fichier excel situé dans un autre répertoire.
Le problème que j'ai même s'il est mineur c'est que ne peux pas choisir des répertoires où il y a des espaces et cela m'embête un peu.

Voici mes deux répertoires que j'écrit dans mon code

Code :

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

1
2
my $repertoire_etude = shift @ARGV // 'C:/Log';																				
my $repertoire_fichier_excel = "C:/Stage/Etude_excel_complete_des_logs_par_repertoire.xls";

Ici il sont dans un répertoire sans espace donc ça marche, mais si j'écris

Code :

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

1
2
my $repertoire_etude = shift @ARGV // 'C:/Documents and Settings/Log';																				
my $repertoire_fichier_excel = "C:/Documents and Settings/Stage/Etude_excel_complete_des_logs_par_repertoire.xls";

ça ne marche plus

J'ai déjà chercher sur d'autre forum et on disait de mettre des \\ ou alors des guillemets. J'ai testé toute les solutions sans résultat et c'est pour cela que je créé une nouvelle discussion.

Lorsque j'écrit par exemple

Code :

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

my $repertoire_etude = shift @ARGV // 'C:\\"Documents and Settings"\\stage\"Mes documents"\\Stage_gabriel\Log';

J'ai l'erreur can't stat C:\... No such file or directory

Lorsque j'écris la même chose mais sans les guillemets, le programme ne signale pas d'erreur mais lorsque le fichier excel s'ouvre il n'y a rien dedans.


Avez - vous une solution ?

Merci.

[shalfat]

J'ai réussi à résoudre le problème pour le répertoire d'étude en ajoutant

Code :

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

use File::Glob qw(bsd_glob);

Car le répertoire d'étude était utilisé par une fonction glob.

Mais pour le répertoire fichier_excel, si je met des espaces j'ai une fenêtre windows qui s'affiche

Code :

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

my $repertoire_fichier_excel = 'C:/Documents and Settings/stage/Mes documents/Stage_gabriel/FichierLog/Etude_excel_complete_des_logs_par_repertoire.xls';

La fenêtre windows affiche Windows ne trouve pas 'C:/Documents'. Vérifiez que vous avez entré le nom correctement et essayer à nouveau.

[dmganges]

Bonjour,

As-tu essayé d'utiliser :

Code :

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

use File::Spec;		# Gestion des noms des chemins sous tous les OS

Code :

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

my $RepBase    = 'C:/Documents and Settings/Log';

ou

Code :

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

my $RepBase    = 'C:\\Documents and Settings\\Log';

Code :

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

my $fichier = File::Spec->catfile( $RepBase, 'Regex.log' );

[shalfat]

Je viens d'essayé et j'ai la même fenêtre Windows qui s'affiche.

[dmganges]

Ben là je sèche si une idée me vient, je reviens

[dmganges]

Je suis un âne

Code :

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

my $repertoire_etude = shift @ARGV;

ne renvoie que le premier argument du tableau!

Exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
use warnings;
use strict;
use utf8;
use File::Spec;		# Gestion des noms des chemins sous tous les OS
my $RepBase    = 'E:/_APPLI/Regex/Documents and Settings/Log';
my $fichier = File::Spec->catfile( $RepBase, 'Regex.log' );
 
#E:/_APPLI/Regex/Documents and Settings/Log/Regex.log
print "ARGV=@ARGV\n";
my $repertoire_etude = shift @ARGV;
print "\n";
print "REP=$repertoire_etude\n\n";

A la limite si tu n'as pas d'autres arguments sur la ligne tu fais :

Code :

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

my $repertoire_etude = @ARGV;

Sinon tu joues...