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...

[dmganges]

Je ne fais pas qu'écrire des âneries :

Code :

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

my $repertoire_etude = @ARGV;

renvoie le nombre d'arguments de @ARGV

Sinon ESS.pl :

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
#!/usr/bin/perl
use warnings;
use strict;
use utf8;
use File::Spec;		# Gestion des noms des chemins sous tous les OS
my $RepBase    = 'E:/_DEV/shalfat/Documents/Log';
 
#E:\\_DEV\\shalfat\\Documents and Settings\\Log\\
print "\nARGV=@ARGV\n";
my $repertoire_etude = join(" ",@ARGV);
 
print "\n\nREP=$repertoire_etude\n\n";
 
 
my $fichier = File::Spec->catfile( $repertoire_etude, '/Regex.log' );
print "\n\n\nFICHIER=$fichier\n\n";
print "OK\n" if ( -e $fichier );

Mais on doit pouvoir faire mieux avec :

Code :

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

1
2
3
4
5
6
use Getopt::Long;		# Gestion des paramètres passés en ligne de commande
...
my ( $Rep ) = "";
GetOptions(
  'Rep' => \$Rep,
);

perl ESS.pl Rep='E:\\_DEV\\shalfat\\Documents and Settings\\Log\'
(Pas testé)

ESS.pl donne :

[shalfat]

Je ne fais pas qu'écrire des âneries :

Code :

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

my $repertoire_etude = @ARGV;

renvoie le nombre d'arguments de @ARGV

Sinon ESS.pl :

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
#!/usr/bin/perl
use warnings;
use strict;
use utf8;
use File::Spec;		# Gestion des noms des chemins sous tous les OS
my $RepBase    = 'E:/_DEV/shalfat/Documents/Log';
 
#E:\\_DEV\\shalfat\\Documents and Settings\\Log\\
print "\nARGV=@ARGV\n";
my $repertoire_etude = join(" ",@ARGV);
 
print "\n\nREP=$repertoire_etude\n\n";
 
 
my $fichier = File::Spec->catfile( $repertoire_etude, '/Regex.log' );
print "\n\n\nFICHIER=$fichier\n\n";
print "OK\n" if ( -e $fichier );

Mais on doit pouvoir faire mieux avec :

Code :

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

1
2
3
4
5
6
use Getopt::Long;		# Gestion des paramètres passés en ligne de commande
...
my ( $Rep ) = "";
GetOptions(
  'Rep' => \$Rep,
);

perl ESS.pl Rep='E:\\_DEV\\shalfat\\Documents and Settings\\Log\'
(Pas testé)

ESS.pl donne :

Merci dmganges, je vais voir ce que je peux faire avec ça.

[Philou67430]

Lorsque tu appelles le script dans la fenêtre en ligne de commande, tu dois (comme l'auto-compléteur de chemin le propose automatique d'ailleurs), mettre des guillemets autour des noms de fichiers ou de dossier qui contiennent des espaces, sinon, il sera copié dans @ARGV comme autant de paramètres différents.
L'autocompléteur de chemin s'active en tapant <TAB> pendant la saisie du chemin.
Cela dit, le dossier c:\Documents and Settings" semble être un dossier "spécial" qui n'en est pas vraiment un (mais plutôt un lien symbolique vers le dossier "c:\Users\<login>\Documents". En utilisant "Document and Settings", perl ne trouve pas les fichiers, alors qu'il les trouve avec le chemin "Users\<login>\Documents".

[shalfat]

Lorsque tu appelles le script dans la fenêtre en ligne de commande, tu dois (comme l'auto-compléteur de chemin le propose automatique d'ailleurs), mettre des guillemets autour des noms de fichiers ou de dossier qui contiennent des espaces, sinon, il sera copié dans @ARGV comme autant de paramètres différents.
L'autocompléteur de chemin s'active en tapant <TAB> pendant la saisie du chemin.
Cela dit, le dossier c:\Documents and Settings" semble être un dossier "spécial" qui n'en est pas vraiment un (mais plutôt un lien symbolique vers le dossier "c:\Users\<login>\Documents". En utilisant "Document and Settings", perl ne trouve pas les fichiers, alors qu'il les trouve avec le chemin "Users\<login>\Documents".

Ok merci pour l'info je vais voir ce que je peux faire

[dmganges]

Tiens après manger ça va mieux.
Pour ne pas te laisser sur une mauvaise impression, çà c'est testé :

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
#!/usr/bin/perl
use warnings;
use strict;
use utf8;
use File::Spec;		# Gestion des noms des chemins sous tous les OS
use Getopt::Long;	# Gestion des paramètres passés en ligne de commande
 
my ( $Rep ) = "";
GetOptions(
  'Rep=s' => \$Rep,
);
 
print "\nREP=$Rep\n\n";
 
 
my $Fichier = File::Spec->catfile( $Rep, '/Regex.log' );
print "\n\n\nFICHIER=$Fichier\n\n";
print "OK\n" if ( -e $Fichier );
 
=pod
"E:\\_DEV\\shalfat\\Documents and Settings\\Log\\"
 
"C:\Users\Michel\Documents"

Si tu as beaucoups d'arguments il peut être utile d'utiliser Getopt::Long
Sauf avis contraire des spécialistes qui te diront si c'est toujours maintenu, si ça a de l'avenir...

Effectivement il y a un lien sur Documents and Settings qui est Documents
Tu peux donc utiliser Documents

ESS.pl se lance :

E:\_DEV\shalfat>perl ESS.pl -Rep="E:\\_DEV\\shalfat\\Documents and Settings\\Log\\"
ou
E:\_DEV\shalfat>perl ESS.pl --Rep="E:\\_DEV\\shalfat\\Documents and Settings\\Log\\"

Sur le lien :

E:\_DEV\shalfat>perl ESS.pl -Rep="C:\Users\Michel\Documents"
E:\_DEV\shalfat>perl ESS.pl --Rep="C:\Users\Michel\Documents"

[EDIT:15:05] Avec %username%
perl ESS.pl -Rep="C:\Users\%Username%\Documents"

et ça donne :