Perl et excel : création fichier excel dans le même répertoire que le programme

Version imprimable

17/07/2014, 10h20
shalfat

Perl et excel : création fichier excel dans le même répertoire que le programme
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:

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.
17/07/2014, 11h19
Philou67430
Oui, grâce au module FindBin.
Il suffit pour cela d'utiliser le module

Code:

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:

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

Je n'ai pas tous saisis

En gros je dois faire ça ?

Code:

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

17/07/2014, 12h08
Philou67430
Comme ceci par exemple :

Code:

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:

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

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:

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

17/07/2014, 14h48
Philou67430

Essaye de faire un

Code:

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

J'ai lancé le fichier depuis C:\Stage et le programme compile mais le fichier excel s'est affiché dans C:\ :?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 use File::Basename; use Findbin; use File::Spec::Win32; my $repertoire_etude = shift @ARGV // 'C:/EOS/Log'; my $repertoire_fichier_excel = catfile(dirname($FindBin::Bin), 'Etude_excel_complete_des_logs.xls'); my $workbook = Spreadsheet::WriteExcel->new($repertoire_fichier_excel);
J'ai aussi lancé le programme depuis C:\Documents and Settings\stage\Mes documents\Stage_gabriel et le fichier excel est apparu dans C:\Documents and Settings\stage\Mes documents

Le fichier ne s'installe pas dans le répertoire du programme mais avec le même chemin du dossier qui contient le programme

Que dois - je faire ?

17/07/2014, 15h39
Philou67430

Code:

my $repertoire_fichier_excel = catfile($FindBin::Bin, 'Etude_excel_complete_des_logs.xls');

Mais je m'y perd dans tes histories de répertoire...
17/07/2014, 15h46
shalfat

ça ne fonctionne toujours pas.

En gros j'ai lancé deux fois le programme en double cliquant dessus.
Une fois depuis le répertoire C:\Stage et le fichier excel c'est enregistré dans C:\

La deuxième fois depuis le répertoire C:\Documents and Settings\stage\Mes documents\Stage_gabriel et le fichier excel c'est enregistré dans le répertoire C:\Documents and Settings\stage\Mes documents\

Ce que je voudrais c'est que le fichier excel s'enregistre à côté du programme dans le même répertoire où est situé le programme.
17/07/2014, 16h13
Philou67430

Que dit le print que je t'ai demandé ?

Si j'écris cela

Code:

1
2
3
4
5
6
my $repertoire_etude = shift @ARGV // 'C:/Log';																				
my $repertoire_fichier_excel = 'C:/Stage_gabriel/Etude_excel_complete_des_logs_par_repertoire.xls';								
 
my $workbook  = Spreadsheet::WriteExcel->new($repertoire_fichier_excel);	
 
print $repertoire_fichier_excel;

J'obtient C:/Stage_gabriel/Etude_excel_complete_des_logs_par_repertoire.xls dans la commande et le fichier excel s'ouvre

Si j'écris cela

Code:

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

Je n'obtient rien dans la commande et le fichier Excel est créé.

17/07/2014, 16h46
Philou67430

Déplace ta ligne print avant le Spreadsheet::WriteExcel->new

Lorsque j'écris
Code:

1 2 3 4 5 6 7 8 9 10 11 12 use File::Basename; use Findbin; use File::Spec::Win32; my $repertoire_etude = shift @ARGV // 'C:/EOS/Log'; my $repertoire_fichier_excel = catfile($FindBin::Bin), 'Etude_excel_complete_des_logs.xls'); print $repertoire_fichier_excel; my $workbook = Spreadsheet::WriteExcel->new($repertoire_fichier_excel);
J'obtiens l'erreur "undefined subroutine & main::catfile called at C:\Etude_complete_des_logs.pl à la ligne 8

Mais par contre, en écrivant :
Code:

1 2 3 4 5 6 7 8 9 10 use File::Basename; use Findbin; my $repertoire_etude = shift @ARGV // 'C:/EOS/Log'; my $repertoire_fichier_excel = dirname($FindBin::Bin).'/Etude_excel_complete_des_logs.xls'; print $repertoire_fichier_excel; my $workbook = Spreadsheet::WriteExcel->new($repertoire_fichier_excel);
Le programme n'affiche pas d'erreur et j'obtiens dans la commande : C://Etude_excel_complete_des_logs.xls

J'ai lancé le programme depuis C:/Stage/ et donc je voudrais qu'il s'enregistre sous le répertoire C:/Stage/Etude_excel_complete_des_logs.xls.

Voit tu d' où vient l'erreur ?

Merci

17/07/2014, 17h42
Philou67430

Utilise File::Spec->catfile à la place de catfile tout court, désolé.

Citation:

Envoyé par Philou67430

Utilise File::Spec->catfile à la place de catfile tout court, désolé.

Salut

En écrivant
Code:

1 2 3 4 5 6 7 8 9 10 use File::Basename; use Findbin; use File::Spec::Win32; my $repertoire_etude = shift @ARGV // 'C:/EOS/Log'; my $repertoire_fichier_excel = File::Spec->catfile(dirname($FindBin::Bin), 'Etude_excel_complete_des_logs.xls'); print $repertoire_fichier_excel; my $workbook = Spreadsheet::WriteExcel->new($repertoire_fichier_excel);
Le code fonctionne et s'enregistre et il m'affiche dans la commande C:\Documents and Settings\stage\Mes documents

Le problème c'est qu'il devrait m'afficher C:\Documents and Settings\stage\Mes documents\Stage_gabriel car c'est de la que j'ai lancé le programme.

J'ai lancé le programme depuis d'autre chemin et c'est toujours le même problème il ne trouve pas le dernier dossier. Par exemple si je le lance depuis C:\stage\programme, le programme va s'enregistrer dans C:\stage

Vois tu d'où vient l'erreur ?

Merci

18/07/2014, 10h29
shalfat

J'ai réussi.

J'ai remplacé la ligne

Code:

my $repertoire_fichier_excel = File::Spec->catfile(dirname($FindBin::Bin), 'Etude_excel_complete_des_logs.xls');

par

Code:

my $fichier_excel = File::Spec->catfile(cwd(), 'Etude_excel_complete_des_logs.xls');

Merci pour ton aide.