script CGI et image GD

**sarah.c.g** · 17/07/2008, 16h23

Bonjour à tous;

A partir d'un formulaiare html comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
<html><center><BODY>
<br><H3>Conception d'interface d'interrogation<BR><BR><BR>
<FORM ACTION="http:...../tableau.cgi" METHOD=POST>
<H2>Choix du fichier
<select name="fichier">
<option value="full.txt">full.txt</option>
<option value="full_unique.txt">full_unique.txt</option>
<BR><INPUT TYPE="submit" VALUE="Lancer">
</FORM>
</body></html>

ce formulaire fait appel a un script "tableau.cgi" qui me permettra
d'une part d'interoger ma base de donnée pour recuperer un nom "$nom" de voir l'age de cette personne "$age" et ça taille "$taille".
pour qu'à la fin il m'affiche un tableau dans un page html
où la premier colone du tableau j'ai les nom, la 2eme j'ai l'age et la 3eme j'ai la taille. dans la 4eme colone je lui demande de m'afficher un lien quand je clic dessus il me renvoi vers une autre page html qui contient un histogramme

pour cela je mais un lien dans le script tableau.cgi vers un autre script exp.cgi

Code :

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

1
2
 
"<A HREF=\"http://localhost/cgi-bin/sarah_cgi/GD/exp.cgi\">Lancer le script</A>"

le script exp.cgi est le suivant :

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
27
28
 
#! /usr/bin/perl -w
use CGI ':standard';
use CGI::Carp qw/carpout fatalsToBrowser set_message/;
$CGI::POST_MAX=5000000;
use GD::Graph::bars;
use strict;
 
#Creation du CGI
################
my $cgi = new CGI;
my @data = (
["FARN ", "vsR", "TO7", "4TRN" ],
["$age", "$taille", 85, 75]); 
 
my $mygraph = GD::Graph::bars->new(500, 400);
$mygraph->set(
    x_label     => "Semester",
    y_label     => "Marks",
    title       => "hysto",
    bar_width   => 50,
    y_max_value       => 100,
    y_tick_number     => 20
) or die $mygraph->error;
my $myimage = $mygraph->plot(\@data) or die $mygraph->error;
print $cgi->header(-type => "image/png");
binmode STDOUT;
print $myimage->png;

la dificulté est que je n'arrive pas récupéré ces variables dans le script tableau.cgi pour les utimiser dans le exp.cgi

**sarah.c.g** · 17/07/2008, 17h08

finalement j'ai trouvé et ça marche tres bien

au niveau du script tableau.cgi

Code :

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

1
2
 
<A HREF=\"http://localhost/cgi-bin/sarah_cgi/GD/exp.cgi?champ1=$age&champ2=$taille\">Histogramme</A>";

au niveau du script exp.cgi

Code :

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

1
2
3
 
my $reg1 =  $cgi -> param('champ1');
my $reg2 =  $cgi -> param('champ2');

voila
bon courage a vous

script CGI et image GD

Web Perl

Vue hybride

Discussions similaires

Partager

Partager