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

[shalfat]

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

Code :

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

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 ?

[Philou67430]

Code :

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

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

Mais je m'y perd dans tes histories de répertoire...

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

[Philou67430]

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

[shalfat]

Si j'écris cela

Code :

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

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 :

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

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

[Philou67430]

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

[shalfat]

Lorsque j'écris

Code :

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

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 :

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

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

[Philou67430]

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

[shalfat]

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

Salut

En écrivant

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

[shalfat]

J'ai réussi.

J'ai remplacé la ligne

Code :

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

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

par

Code :

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

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

Merci pour ton aide.