Re: gd::graph returns unicode

[Khen1950fx]

According to the author, the use of @data is legacy code. I rewrote it to reflect the newer usage. Note that the usual way to print is...

open(IMG, '>test.png');
binmode IMG;
print IMG $gd->png;

The full script:

#!/usr/bin/perl -l

use strict;
use warnings;
use GD::Graph::bars;
use GD::Graph::Data;

print "Hello world!\n";

my $data = GD::Graph::Data->new([
    [1,2,3,4], 
    [5,3,8,9],
]) or die $!;

my $graph = GD::Graph::bars->new();
$graph->set(
    x_label => 'X num',
    y_label => 'Y num',
    title   => 'Test',
) or die $graph->error;

my $gd = $graph->plot($data) or die $!;

open(IMG, '>test.png');
binmode IMG;
print IMG $gd->png;