#!/usr/bin/perl -w
use strict;
use diagnostics;
use Data::Table;
use GD::Graph::bars;
use Date::Manip;

open( OUT, ">table.html" ) or die "cant open out $!";

# Creating first table with present data
my $table =
  new Data::Table(
    [ [ 20070410, 20070415, 20070417, 20070420 ], [ 10, 20, 15, 42 ] ]
+,
    [ 'Dates', 'Values' ], 1 );
print OUT $table->html;
print OUT
"<img src=\"graph.png\" width=\"700\" height=\"150\" alt=\"graph\" ali
+gn=\"right\">";

my $value_start = $table->elm( 0,                  0 );
my $value_end   = $table->elm( $table->nofRow - 1, 0 );
my $start       = UnixDate( $value_start,          '%m/%d/%Y' ); #  No
+v 22, 1999
my $end         = UnixDate( $value_end,            '%m/%d/%Y' ); # mm/
+dd/yyyy
my @dates = ParseRecur( "0:0:0:1:0:0:0", $start, $start, $end );
foreach my $x (@dates) {
    $x = UnixDate( $x, '%Y%m%d' );
}
my $nums          = @dates;
my @second_column = undef;
my $x             = undef;
for ( my $var = 0 ; $var < $nums - 1 ; $var++ ) {
    push( @second_column, 0 );
}

# Creating second table with missing calendar dates
my $table_cal =
  new Data::Table( [ \@dates, \@second_column ], [ 'Dates', 'Values' ]
+, 1 );
print OUT $table_cal->html;

$table->rowMerge($table_cal);    # Merging two tables
$table->sort( "Dates", 0, 0 );   # Sort by col 'Dates',numerical,ascen
+ding

# grouping rows by Dates and adding Values.
$table = $table->group( ["Dates"], ["Values"], [ \&adding ], ["Values"
+] );
print OUT $table->html;

for my $graph ( GD::Graph::bars->new( 700, 150 ) ) {
    $graph->set(
        'y_number_format' => '%d',
        transparent       => 0,
        values_vertical   => 1,
        show_values       => 1,
    );
    $graph->set( 'x_labels_vertical' => 1 );
    my $gd = $graph->plot( $table->colRefs( [ 0, 1 ] ) );
    open( IMG, ">graph.png" ) or die $!;
    binmode IMG;
    print IMG $gd->png;
    close IMG;
}

sub adding {
    my @data = @_;
    my $sum  = 0;
    my $x    = 0;
    foreach $x (@data) {
        next unless $x;
        $sum += $x;
    }
    return $sum;
}
[download]