🚀 go-pugleaf

Hallo

Heeft iemand een idee hoe je in het onderstaande perlscript HTML opbouwt
zodat er in plaats van een simpele image header een HTML header wordt
gebruikt en dan ook dat ik HTML kan bouwen naar gelieven.

Dit script doet hetvolgende: het gebruik de data uit @data, spreekt de
functies aan uit de GIFgraph lib en tekent aldus een grafiek, maar dit met
een image header. Hoe kan je ervoor zorgen dat de gif-file apart wordt gezet
"gewrapt" in HTML. Anders kan ik natuurlijk geen pagina's ontwikkelen naar
believen.

Ik ben geen professional als het aankomt op programmeren, ik studeer
handelswetenschappen, 2� licentie optie Management en IT en had dit graag
geweten voor mijn thesisproject.

bedankt alvast!

Franky

www.franksite.net




#!/usr/bin/perl -wT
# graph-demo.pl
use strict;
use diagnostics;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use GIFgraph::lines;
# Create an instance of CGI
my $query = new CGI;
# Set the data
my @data = (["1/10/00", "2/10/00", "3/10/00", "4/10/00", "5/10/00",
"6/10/00", "7/10/00", "8/10/00", "9/10/00", "10/10/00"], [1200, 1050, 1350,
800, 1650, 1550, 1400, 1100, 1450, 950]);
# Send an appropriate MIME header
print $query->header(-type => "image/gif");
# Create a graph object
my $graph = new GIFgraph::lines(500,300);
$graph->set(
     title =>"testgif",
     x_label =>'Time',
     y_label =>'Value',
     y_tick_number => 10
     );
# Draw the graph
print $graph->plot(\@data);