Warning: file_get_contents(/data/phpspider/zhask/data//catemap/8/perl/11.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
将图形打印到终端。Perl_Perl_Graph_Module - Fatal编程技术网

将图形打印到终端。Perl

将图形打印到终端。Perl,perl,graph,module,Perl,Graph,Module,我刚找到GD::Graph模块,但它将图形打印到文件中 我想制作一种显示器,可以打印到终端上 例如,如何将这样的图形(不完全相同,但类似,因此适合终端)打印到终端上? 已更新 use strict; use GD::Graph::bars; use GD::Graph::hbars; use GD::Graph::Data; require 'save.pl'; my $data = GD::Graph::Data->new([ ["1st","2nd","3rd","4th",

我刚找到GD::Graph模块,但它将图形打印到文件中

我想制作一种显示器,可以打印到终端上

例如,如何将这样的图形(不完全相同,但类似,因此适合终端)打印到终端上?

已更新

use strict;
use GD::Graph::bars;
use GD::Graph::hbars;
use GD::Graph::Data;
require 'save.pl';

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 @names = qw/sample11 sample11-h/;

for my $my_graph (GD::Graph::bars->new, GD::Graph::hbars->new)
{
    my $name = shift @names;

    print STDERR "Processing $name\n";

    $my_graph->set(
        x_label         => 'X Label',
        y_label         => 'Y label',
        title           => 'A Simple Bar Chart',
        #y_max_value     => 8,
        #y_tick_number   => 8,
        #y_label_skip    => 2,

        #x_labels_vertical => 1,

        # shadows
        bar_spacing     => 8,
        shadow_depth    => 4,
        shadowclr       => 'dred',

        transparent     => 0,
    )
    or warn $my_graph->error;

    $my_graph->plot($data) or die $my_graph->error;
    save_chart($my_graph, $name);
}

很简单,可以将图形打印到STDOUT。您不必调用
save_chart()
,只需执行以下操作:

print $my_graph->png;
但您的监视器不太可能理解向其抛出的原始PNG数据。您需要将绘图写入图像文件,并以某种方式显示该文件


但是,如果不了解更多您正在尝试做的事情,就很难提供更多帮助。

那么,将图形打印到STDOUT非常简单。您不必调用
save_chart()
,只需执行以下操作:

print $my_graph->png;
但您的监视器不太可能理解向其抛出的原始PNG数据。您需要将绘图写入图像文件,并以某种方式显示该文件


但是,如果不了解更多您正在尝试做的事情,就很难提供更多帮助。

您可以尝试hbar并对其进行修改以满足您的需要:


您可以尝试hbar并对其进行修改以满足您的需要:


你能用Graph::Easy做你需要的吗

Graph::Easy - Convert or render graphs (as ASCII, HTML, SVG or via
Graphviz)

你能用Graph::Easy做你需要的吗

Graph::Easy - Convert or render graphs (as ASCII, HTML, SVG or via
Graphviz)

print IMG$graph->plot..
print$graph->plot..@mpapec,thx但是我没有得到它,你能告诉我一个例子吗?检查
sub save_chart{}
说了什么。找到一个ASCII艺术图表/图形模块而不是图形模块。
print IMG$graph->plot..
print$graph->plot..
,thx但是我没有明白,你能告诉我一个例子吗?检查
sub-save_-chart{}
是怎么说的。找一个ASCII艺术图表/图形模块而不是图形模块。好吧,我只想打印简单的图形,没有花哨的东西,在标准输出上应该可以。将来我只想用它来制作proc stat的监视器。你打算如何在没有图像显示软件的情况下在监视器上显示图像?你在找吗?嗯,我只想打印简单的图形,没有花哨的东西,在标准输出上应该可以。将来我只想用它来制作proc stat的监视器。你打算如何在没有图像显示软件的情况下在监视器上显示图像?你在找什么?