0

所以我的任务是创建 MySQL 表中的数据图（大约 41 个数据，7 行）。我只做了一个基本的图表......所以我什至可以使用 perl 脚本使用 MySQL 表中的数据创建一个图表。

抱歉没有编码，因为我什至不知道如何使用 MySQL 数据创建 perl 图

编辑

我试着做图表，但似乎数据没有显示出来。它只显示了一个空图，并且由于某种原因这些值以负数开头......我做错了什么吗？

我的 sql 表

create table Top_1 (
CPU_User float, CPU_System float, CPU_Waiting float);

我的脚本


#!/usr/bin/perl

use DBI;
use warnings;
use strict;
use autodie;
use Data::Dumper;
use GD::Graph::bars;
use GD::Graph::Data;


my $username = "root";
my $password = "";
my $db = "Top_Data_1";
my $host = "127.0.0.1";
my $port = "3306";

my $dsn = "DBI:mysql:database=$db;host=$host;port=$port";
my %attr = (PrintError=>0,RaiseError=>1 );
my $dbh = DBI->connect($dsn,$username,$password,\%attr) or die $DBI::errstr;

my $sth = $dbh->prepare('CPU_User, CPU_System, CPU_Waiting from Top_1');
$sth->execute();
my @row;
while ( @row = $sth->fetchrow_array) {

    print "this is CPU_User\n";
    print "$row[0]\n";

    print "this is CPU_System \n";
    print "$row[1]\n";

    print "this is CPU_Waiting \n";
    print "$row[2]\n";


                    }

my $data = GD::Graph::Data->new([ 

["8 am","10 pm","12 pm"],
['$row[0]'],
['$row[1]'],
['$row[2]'],
]) or die GD::Graph::Data->error;  

my $graph = GD::Graph::bars->new;

$graph->set( 
    x_label         => 'File_Name',
    y_label         => 'Value',
    title           => 'TOP CPU DISPLAY',

    x_labels_vertical => 1,
    bar_spacing => 10,
    bar_width => 3,
    long_ticks => 1,

    ) or die $graph->error;

$graph->set_legend_font(GD::gdMediumBoldFont);
$graph->set_legend('CPU USER','CPU_System','CPU_Waiting');

$graph->plot($data) or die $graph->error;

my $file = 'bars.png';
print "Your Picture Has Been Added To Your Directory\n";
open(my $out, '>', $file) or die "Cannot open '$file' for write: $!";

binmode $out;
print $out $graph->gd->png;
close $out;

$sth->finish();
$dbh->disconnect();
4

2 回答 2

2

这是可以做到的。可以使用 DBI 从 MySQL 获取数据。然后，您可以将数据排列成一种格式，以使用图形库对其进行图形化。我使用过 GD::Graph 并且易于使用。

链接： MySQL：https ://metacpan.org/pod/DBD::mysql 图：https ://metacpan.org/pod/GD::Graph

于 2019-08-29T15:32:08.373 回答
0

数据结构不正确。

不确定您的数据库表，但如果您有时间字段，那么下面的内容应该可以工作。

    my $data = GD::Graph::Data->new();
    my $sth = $dbh_mysql->prepare('SELECT hour, CPU_USER, CPU_System, CPU_Waiting FROM top1');
    $sth->execute();
    while (my @row = $sth->fetchrow_array) 
    {
        $data->add_point(@row);
    }
于 2019-08-30T10:23:17.440 回答