Bonjour,
Pouvez-vous m'orienter sur ce point?
J'ai un script lancé d'une page html qui récupère des infos d'une requête envoyée à une base de données MySQL.
Les résultats de cette requête sont écrits dans un ficher Excel au moyen de la méthode ->write_xls du module Spreadsheet::WriteExcel::FromDB::Query
J'aimerais bien que la page html propose une boite de dialogue permettant de choisir le nom et l'emplacement de ce ficher.
Après avoir lu le tuto sur l'utilisation des widgets Tk avec Perl , je me demandais si la fonction getSaveFile pouvait convenir?
Voici mon code :
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
24
25
26 #!C:/wamp/apps/Perl/bin/perl.exe use strict; use warnings; use CGI; use DBI; use CGI::Carp qw(fatalsToBrowser); use Spreadsheet::WriteExcel; use Spreadsheet::WriteExcel::FromDB::Query; # connexion à ma bade de données mysql minichat my $database = "db1"; my $hostname = "localhost"; my $tablename = "livre"; my $login = "root"; my $pw = ""; my $dsn = "DBI:mysql:database=$database;host=$hostname"; my $dbh = DBI->connect($dsn,$login,$pw) or die "ECHEC connexion"; # requête de sélection my $query = ("SELECT * FROM $tablename"); my $ss = Spreadsheet::WriteExcel::FromDB->read($dbh, $query); $ss->write_xls('c:\classeur.xls'); $dbh->disconnect;
Partager