Discussion :

[shalfat]

Bonjour

J'ai crée un script perl faisant du parsing de fichier.

Le répertoire où sont affichés les fichiers logs et le répertoire où va être enregistré le fichier d'entré sont écrit au début du programme.

Code :

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

1
2
my $repertoire_etude = shift @ARGV // 'C:/Documents and Settings/stage/Mes documents/Stage_gabriel/Log';
my $repertoire_fichier_excel = 'C:/Log/Etude_excel_complete_des_logs_par_repertoire.xls';

Tous marche nickel mais ce que j'aimerais faire c'est que lorsque l'on lance le fichier (en cliquant dessus ou alors par la commande), le fichier excel se crée automatiquement au même emplacement que le programme .pl, cela sans devoir écrire l'emplacement du programme.

Est - ce que cela est possible ?

Merci.

[Philou67430]

Oui, grâce au module FindBin.
Il suffit pour cela d'utiliser le module

Code :

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

use FindBin;

et d'utiliser la variable du module $FindBin::Bin (ou $FindBin::RealBin) et d'en prendre la partie directory à l'aide du module File::Basename (function dirname) :

Code :

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

1
2
3
use File::Basename;
use FindBin;
my $root_dir = dirname($FindBin::Bin);

[shalfat]

Je n'ai pas tous saisis

En gros je dois faire ça ?

Code :

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

1
2
3
4
5
6
7
8
 
use File::Basename;
use Findbin;
 
my $repertoire_etude = shift @ARGV // 'C:/EOS/Log';																					
my $repertoire_fichier_excel = dirname($FindBin::Bin);
 
my $workbook  = Spreadsheet::WriteExcel->new($repertoire_fichier_excel);

Mais où est ce que j'écris le nom du fichier excel crée ?

Merci

[Philou67430]

Comme ceci par exemple :

Code :

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

my $repertoire_fichier_excel = dirname($FindBin::Bin).'/Etude_excel_complete_des_logs_par_repertoire.xls';

Ou encore mieux, en utilise File::Spec (ou File::Spec::Win32) :

Code :

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

1
2
3
use File::Spec;
#...
my $repertoire_fichier_excel = catfile(dirname($FindBin::Bin), 'Etude_excel_complete_des_logs_par_repertoire.xls');

[shalfat]

J'ai essayé comme ça, donc le programme tourne sans erreur et le fichier Excel s'ouvre. Le problème c'est qu'il n'est pas crée dans le même emplacement que mon programme perl. D'ailleurs je l'ai cherché dans l'ordinateur et il n’apparaît pas non plus, cela veut dire qu'il ne s'enregistre pas .

Est - ce normal ?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
use File::Basename;
use Findbin;
use File::Spec;
 
 
my $repertoire_etude = shift @ARGV // 'C:/EOS/Log';																					
my $repertoire_fichier_excel = catfile(dirname($FindBin::Bin), 'Etude_excel_complete_des_logs_par_repertoire.xls');
 
my $workbook  = Spreadsheet::WriteExcel->new($repertoire_fichier_excel);

[Philou67430]

Essaye de faire un

Code :

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

print $repertoire_fichier_excel, "\n";

après avoir initialisé cette variable pour voir où il le créé.
Si le chemin est foireux avec ça, essaye d'utiliser File::Spec::Win32 au lieu de File::Spec