0

我正在尝试制作一个小 PERL 脚本（我是初学者！）

我拿了一个示例代码并根据我的需要对其进行了编辑。

因此，任务是从 csv 文件中读取数据，将它们放入 html 表中，并以饼图的形式显示图表。

该表已经工作，只有饼图是我的问题。我已经查看并尝试了代码中图表部分的许多更改，但没有带来。

这是我的代码：

#!C:\Perl64\bin\perl.exe -w
### Variablendeklarationen und Moduleinbindungen ###
use strict;

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use DBI;
my $DBH = DBI->connect('DBI:CSV:');
my $STH;
use CGI::Carp 'fatalsToBrowser';

### Statement-Vorbereitung ###
$DBH->{'csv_tables'}->{'daten'} = { 'file' => 'daten.csv'}
    or die "Konnte Datenbank nicht oeffnen:$!";
$STH = $DBH->prepare("SELECT * FROM daten")
    or die "Konnte SQL-Statement nicht ausfuehren:$!";

$STH->execute()
    or die "Ausfuehren der Datenbankabfrage nicht moeglich:$!";

print <<HERE_TEXT;
Content-type:text/html

<html>
<head>
<title>Datenanzeige CSV-File</title>
</head>

<body>
<center>
<h1>Folgende Umsatzdaten sind ausgelesen worden:</h1>
<hr>
<table border>
<tr>
    <td width="200"><b>Filiale:</b></td>
    <td width="100"><b>Leiter:</b></td>
    <td width="200"><b>Mitarbeiter:</b></td>
    <td width="100"><b>Umsatz:</b></td>
</tr>

HERE_TEXT

my @data;
my @diagarray;

while (@data = $STH->fetchrow_array()) {
    my $filiale = $data[0];
    my $leiter = $data[1];
    my $mitarbeiter = $data[2];
    my $umsatz = $data[3];

push (@diagarray, $umsatz);
print qq§<tr>\n<td><b>$filiale</b></td>\n<td>$leiter</td>\n<td>$mitarbeiter</td>\n<td>$umsatz</td>\n</tr>\n§;
}
print ("<br><br>");

use GD::Graph::pie;
my $graph = GD::Graph::pie->new(300, 300);

    $graph->set(
    title => 'Umsatzverteilung Filialen',
    ) or die $graph->error;

#my @diagram = (\@data,\@diagarray);

#Debug
#my $diagram;
#   foreach $diagram(@diagram)
#       {
#           print ("$diagram\n");
#       }

my $gd = $graph->plot(\@diagarray) or die $graph->error;

    my $format = $graph->export_format;
    print header("image/$format");
    binmode STDOUT;
    print $graph->plot(\@diagarray)->$format();

如果有人能给我最后需要的提示，那就太好了。问候

4

2 回答 2

1

调试时，请始终确认您的数据和脚本流程，切勿假设任何事情都是正确的。

尝试

use Data::Dumper; # at the top of your script
[...]
print Dumper(\@diagarray); # just before your $graph->plot call

您可能会注意到您的数据格式与http://search.cpan.org/~ruz/GDGraph-1.52/Graph.pm#USAGE上显示的不同

当示例显示 ArrayRef 的 ArrayRef 时，您将 ArrayRef 传递给 ->plot：

[
  ['Desc1','Desc2'],
  [250000, 350000],
]

我建议提取绘图部分并使用静态数据进行尝试，直到获得工作结果。然后将其复制回您的脚本并用您的数据替换静态数据，例如：

#!/usr/bin/perl
use GD::Graph::pie;
my $graph = GD::Graph::pie->new(300, 300);
    $graph->set(
    title => 'Umsatzverteilung Filialen',
    ) or die $graph->error;
my @diagarray = (
    ['Title1', 'Title2', ],
    [ 100, 200 ],
);
my $gd = $graph->plot(\@diagarray) or die $graph->error;
my $format = $graph->export_format;
print header("image/$format");
binmode STDOUT;
print $graph->plot(\@diagarray)->$format();

还要检查错误消息中报告的行。您的每个 ->plot 电话都可能是原因。

两个补充说明：

  1. 否（！）代码应该在脚本的使用行中，因为它们是在编译时处理的，而代码在运行时运行。混合不会损害您的脚本，但看起来像我的 $DBH = DBI->connect('DBI:CSV:'); 将在使用 CGI::Carp之前运行。
  2. 从脚本打印 HTML 源代码可以用于测试和学习，但不应该在生产环境中进行，因为这会使维护变得更加困难。尝试使用 Template::Toolkit 或其他东西。
于 2016-04-22T08:09:55.863 回答
0

将两个数组引用放入@diagarray 与将标量推入其中的方式没有任何不同。

push(@diagarray,\@labels);
push(@diagarray,\@values);

但是您希望这发生在 while 循环之外。在 while 循环内部是填充 @labels 和 @values 的地方。两个数组的大小必须相同。

此外，您的脚本正在尝试一次性输出 HTML 和饼图，这将无法正常工作，因为您的浏览器只会将其全部视为 HTML 的一部分。您的 HTML 中需要有一个指向另一个 URL 的“img”标签。该 URL 可以是相同的脚本，但具有不同的查询字符串。例如

use CGI
my $query=new CGI;
if($query->param("piechart")) {
   # print out the graph
} else {
   print "<img src=\"",$ENV{"SCRIPT_NAME"},"?piechart=1\"/>";
}

或者，您可以将饼图代码拆分为一个完全独立的脚本，但这使得维护变得不那么容易，因为如果用于读取数据的代码发生变化，您必须更新两个脚本。

于 2016-04-22T23:45:39.037 回答