🚀 go-pugleaf

"Franky Claeys" <franky.claeys@vt4.net> writes:

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

Ik denk dat je probleem is dat je de image data inline wilt
meegeven. Dat is meestal geen goed idee. Splits je scripts op.

Main page:

print $query->header,
      $query->start_html('Franky's Thesis'),
      $query->h1('Eerste grafiek'),
      $query->img({src=>'other-script.cgi', align=>'LEFT'}),
      $query->end_html;

En je oorspronkelijk script wordt other-script 

> #!/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);
> 
> 
> 

-- 
Lieven Marchand <mal@bewoner.dma.be>
Lambda calculus - Call us a mad club