Bug Spreadsheet::WriteExcel, le retour !, version Formules.
Bonjour,
Décidément, ce module me cause du souci. Le topic n-3 est déjà de moi, et déjà pour ce module !
Cette fois-ci il est au bon endroit, www-data a le droit d'y aller et ne s'en prive pas !
Je rencontre à présent un souci au niveau de l'écriture de formules.
J'ai un joli programme qui récupère des données dans des fichiers, les écris dans le tableur, qui fait tout plein de choses avec (moyenne, écart type, graphique...).
Je le lance sous le terminal, aucun souci.
Je le lance via ma page web... et il décède pile poil au moment où il est question d'écrire une formule dans le fichier (alors qu'écrire quoi que ce soit d'autre ne pose pas de problème).
Mon maître de stage et moi avons pensé à pas mal de choses... Mais visiblement pas encore aux bonnes. (y'a pas un smiley qui se gratte la tête? ;) ). et je ne trouve aucune littérature là dessus.
Merci pour vos idées que je n'aurais pas encore eues... !
Pour vous donner une idée pas du tout contractuelle :
Code:
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
#!/usr/bin/perl -w
use IO::File;
use CGI qw(:standard) ;
use PAGEWEB;
use strict ;
use Date::Calc qw(Delta_DHMS) ;
use Spreadsheet::WriteExcel ;
use Data::Dumper;
$Data::Dumper::Purity = 1;
print "Content-type: text/html ; charset=UTF-8\n\n";
print '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">';
print "<html>";
print "<head>
<title>Etude du comportement des souris : souris</title>";
print "</head>" ;
my $variables ....
print "<body>" ;
$workbook = Spreadsheet::WriteExcel->new('formula_result.xls');
$worksheet = $workbook->add_worksheet();
$format = $workbook->add_format(color => 'blue');
$worksheet->write('A1', '1+2');
$worksheet->write('A2', '=1+2', $format); #Le programme décède ici... à cause du "=" !
$worksheet->write('A3', '"ABC"');
$worksheet->write('A4', '=IF(A1 > 1, TRUE, FALSE)');
$worksheet->write('A5', '1/0');
$workbook->close() ;
print "<a href = '/donnees/experiences/$fichier_traite'>Cliquez ici pour telecharger</a>";
print "</body>" ;
} |
