simile/sparklines/create.pl

#!/usr/bin/perl

use warnings;
use strict;

# create.pl
#
# 10/17/08 12:29:51 CEST Dobrica Pavlinusic <dpavlin@rot13.org>

use GD::Graph::sparklines;
use Data::Dump qw/dump/;
use File::Slurp;

my $data;

my $max_month = 0;

foreach my $file ( @ARGV ) {

        open(my $fh, '<', $file) or die "$file: $!";

        my $type = $1 if ($file =~ /monthly-([^\.]+)/);

        while(<$fh>) {
                chomp;
                my ( $instance, $count, $month, $from, $to ) = split(/\t/,$_);

                if ( ! defined $data->{$instance} ) {
                        $data->{$instance} = [];
                }

                $max_month = $month if $month > $max_month;

                $data->{$instance}->[ $month ] = $count;
        }

        warn dump( $data ), "\nmax_month: $max_month";

        foreach my $instance ( keys %$data ) {

                my $graph = GD::Graph::sparklines->new(128, 16);
                my ( @x, @y );
                foreach my $month ( 1 .. $max_month ) {
                        push @x, $month;
                        my $y = $data->{$instance}->[$month] || 0;
                        push @y, $y;
                }
                warn "x = ",dump( @x ), "\ny = ", dump( @y );
                my $gd = $graph->plot( [ \@x, \@y ] ) or die $graph->error;
                write_file( "s/$instance-$type.png", $gd->png );        
        }

        close($fh);
}
1	#!/usr/bin/perl
2
3	use warnings;
4	use strict;
5
6	# create.pl
7	#
8	# 10/17/08 12:29:51 CEST Dobrica Pavlinusic <dpavlin@rot13.org>
9
10	use GD::Graph::sparklines;
11	use Data::Dump qw/dump/;
12	use File::Slurp;
13
14	my $data;
15
16	my $max_month = 0;
17
18	foreach my $file ( @ARGV ) {
19
20	open(my $fh, '<', $file) or die "$file: $!";
21
22	my $type = $1 if ($file =~ /monthly-([^\.]+)/);
23
24	while(<$fh>) {
25	chomp;
26	my ( $instance, $count, $month, $from, $to ) = split(/\t/,$_);
27
28	if ( ! defined $data->{$instance} ) {
29	$data->{$instance} = [];
30	}
31
32	$max_month = $month if $month > $max_month;
33
34	$data->{$instance}->[ $month ] = $count;
35	}
36
37	warn dump( $data ), "\nmax_month: $max_month";
38
39	foreach my $instance ( keys %$data ) {
40
41	my $graph = GD::Graph::sparklines->new(128, 16);
42	my ( @x, @y );
43	foreach my $month ( 1 .. $max_month ) {
44	push @x, $month;
45	my $y = $data->{$instance}->[$month] \|\| 0;
46	push @y, $y;
47	}
48	warn "x = ",dump( @x ), "\ny = ", dump( @y );
49	my $gd = $graph->plot( [ \@x, \@y ] ) or die $graph->error;
50	write_file( "s/$instance-$type.png", $gd->png );
51	}
52
53	close($fh);
54	}