#! perl -slw
use strict;
use GD::Graph::bars;
my @d1 = (
[ "2010/03/29 14:00:00", "2010/03/29 14:00:00", "2010/04/29 14:00:
+00", "2010/04/29 14:00:00" ],
[ 13, 15, 20, 21 ],
);
my $g1 = GD::Graph::bars->new( 1000, 800 );
my $img1 = $g1->plot( \@d1 );
open PNG, '>:raw', "$0.png" or die $!;
print PNG $img1->png;
close PNG;
system "$0.png";
or maybe you need to retain two datasets and just combine the labels, to give this: #! perl -slw
use strict;
use GD::Graph::bars;
my @d1 = (
[ "2010/03/29 14:00:00", "2010/04/29 14:00:00" ],
[ 13, 15 ],
[ 20, 21 ],
);
my $g1 = GD::Graph::bars->new( 1000, 800 );
my $img1 = $g1->plot( \@d1 );
open PNG, '>:raw', "$0.png" or die $!;
print PNG $img1->png;
close PNG;
system "$0.png";
.
Or maybe I've combined the values the wrong way and what you want is this #! perl -slw
use strict;
use GD::Graph::bars;
my @d1 = (
[ "2010/03/29 14:00:00", "2010/04/29 14:00:00" ],
[ 13, 20 ],
[ 15, 21 ],
);
my $g1 = GD::Graph::bars->new( 1000, 800 );
my $img1 = $g1->plot( \@d1 );
open PNG, '>:raw', "$0.png" or die $!;
print PNG $img1->png;
close PNG;
system "$0.png";
And maybe you want a gap between the two this #! perl -slw
use strict;
use GD::Graph::bars;
my @d1 = (
[ "2010/03/29 14:00:00", undef, "2010/04/29 14:00:00" ],
[ 13, undef, 20 ],
[ 15, undef, 21 ],
);
my $g1 = GD::Graph::bars->new( 1000, 800 );
my $img1 = $g1->plot( \@d1 );
open PNG, '>:raw', "$0.png" or die $!;
print PNG $img1->png;
close PNG;
system "$0.png";
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
|