Html 如何使用Perl将图形添加到网页？
我需要使用从MySQL数据库中提取的Perl数据创建一个图形 我已经看到了Html 如何使用Perl将图形添加到网页？,html,mysql,perl,graph,charts,Html,Mysql,Perl,Graph,Charts,我需要使用从MySQL数据库中提取的Perl数据创建一个图形 我已经看到了GD:：Graph推荐和其他方法，但我不知道如何使用它们，也不能在网上找到太多 我已经为网页输入了一个GD:：Graph脚本，但什么也没有出现。我假设我必须以某种方式合并HTML来显示图形，但我也不知道如何做到这一点 我只需要一个基本的线图，所以任何简单的例子都会有很大帮助 下面是我玩的一个无法工作的示例程序： use GD::Graph::bars; use GD::Graph::Data; my $data = GD
GD:：GraphGD:：Graphuse GD::Graph::bars;
use GD::Graph::Data;
my $data = GD::Graph::Data->new([
["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"],
[ 1, 2, 5, 6, 3, 1.5, 1, 3, 4],
]) or die GD::Graph::Data->error;
my $graph = GD::Graph::bars->new;
$graph->set(
x_label => 'X Label',
y_label => 'Y label',
title => 'A Simple Bar Chart',
#y_max_value => 7,
#y_tick_number => 8,
#y_label_skip => 3,
#x_labels_vertical => 1,
#bar_spacing => 10,
#shadow_depth => 4,
#shadowclr => 'dred',
#transparent => 0,
) or die $graph->error;
$graph->plot($data) or die $graph->error;
my $file = 'bars.png';
open(my $out, '>', $file) or die "Cannot open '$file' for write: $!";
binmode $out;
print $out $graph->gd->png;
close $out;
如果您对
GD:：Graph...
use GD::Graph;
my $graph = ...;
my $file = "bars-$$.png"; # a unique file name
# replace /var/www/htdocs here with the root document directory for your server
open my $out, '>', '/var/www/htdocs/bars/$file';
print $out $graph->gd->png;
close $out;
# now write the web page
print "Content-type: text/html\n\n";
print "<html><head><title>Bar Graph</title><head>\n";
print "<body>";
print ...
print "<h2>Here is a bar graph</h2>\n";
print "<img src='/bars/$file'>\n";
print ...
print "</body></html>\n";
。。。
使用GD:：Graph；
我的$graph=。。。；
my$file=“bar-$.png”#唯一的文件名
#将此处的/var/www/htdocs替换为服务器的根文档目录
打开我的$out“>”，“/var/www/htdocs/bar/$file”；
打印$out$graph->gd->png；
收尾美元；
#现在编写网页
打印“内容类型：text/html\n\n”；
打印“条形图\n”；
打印“”；
打印
打印“这是一个条形图\n”；
打印“\n”；
打印
打印“\n”；
bar.png#!/usr/bin/perl
use strict;
use warnings;
# Added: Use the CGI library
# (not essential, but makes your life easier)
use CGI 'header';
use GD::Graph::bars;
use GD::Graph::Data;
my $data = GD::Graph::Data->new([
["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"],
[ 1, 2, 5, 6, 3, 1.5, 1, 3, 4],
]) or die GD::Graph::Data->error;
my $graph = GD::Graph::bars->new;
$graph->set(
x_label => 'X Label',
y_label => 'Y label',
title => 'A Simple Bar Chart',
#y_max_value => 7,
#y_tick_number => 8,
#y_label_skip => 3,
#x_labels_vertical => 1,
#bar_spacing => 10,
#shadow_depth => 4,
#shadowclr => 'dred',
#transparent => 0,
) or die $graph->error;
$graph->plot($data) or die $graph->error;
# Added: print the content-type header
print header('image/png');
# Removed: opening an image file
# Changed: Run binmode against STDOUT, not your image file
binmode STDOUT;
# Changed: Print image to STDOUT, not your image file
print $graph->gd->png;
# Removed: Don't close the filehandle, that you didn't open :-)
如果您在这方面需要更多帮助，请提出更具体的问题。因此，这不是代码编写服务。请向我们展示您尝试过并需要帮助的代码。我不是要求别人为我编写代码，只是帮助我指出正确的方向。您展示的代码片段创建了一个图像，并将其打印到文件中。如果您想在HTML页面中包含该图像，则必须包含该图像。或者，您可以将此代码用作CGI脚本，而不是打开文件，只需打印到标准输出即可。首先发送正确的
图像/pngimage/pngbinmode$out打开我的$out，'>:unix'，…