Sack/Server/Gnuplot.pm

package Sack::Server::Gnuplot;

use warnings;
use strict;

use Data::Dump qw(dump);

sub date {
        my ( $out, $param ) = @_;

        die "out not hash but ", dump($out) unless ref($out) eq 'HASH';

        my @plot;
        my $uid = '';

        foreach my $key ( keys %$out ) {

                my $title = $key;
                $title =~ s{\+$}{};
                next unless $title =~ s{^date,}{};

                if ( my $filter = $param->{filter} ) {
                        $filter = '(' . join('|', @$filter) . ')' if ref $filter eq 'ARRAY';
                        next unless $key =~ m{$filter};
                }

                my $path = "/tmp/sack.gnuplot.$key.txt";
                open( my $fh, '>', $path ) || die "$path: $!";
                print $fh "## out key=$key\n";

                foreach my $name ( sort keys %{ $out->{$key} } ) {
                         
                        my $v = $out->{$key}->{$name};

                        print $fh "$name $v\n";

                }

                close($fh);

                warn "data $path ", -s $path, " bytes\n";

                push @plot, qq|"$path" using 1:2 title "$title" with linespoints|;
                $uid .= $key;
        }

        my $path = "/tmp/sack.gnuplot.$uid.png";

        open(my $gnuplot, '|-', 'gnuplot') || die "gnuplot $!";
        print $gnuplot qq|

set terminal png
set output '$path'

set xdata time
set timefmt "%Y-%m-%d"
set format x "%d.%m."
#set xrange [ "2009-01-01":"2010-01-01" ]
#set yrange [ 0 : ]

plot |, join(',', @plot);

        close($gnuplot);

        warn "gnuplot $path ", -s $path, " bytes\n";

        return $path;
}

1;
1	package Sack::Server::Gnuplot;
2
3	use warnings;
4	use strict;
5
6	use Data::Dump qw(dump);
7
8	sub date {
9	my ( $out, $param ) = @_;
10
11	die "out not hash but ", dump($out) unless ref($out) eq 'HASH';
12
13	my @plot;
14	my $uid = '';
15
16	foreach my $key ( keys %$out ) {
17
18	my $title = $key;
19	$title =~ s{\+$}{};
20	next unless $title =~ s{^date,}{};
21
22	if ( my $filter = $param->{filter} ) {
23	$filter = '(' . join('\|', @$filter) . ')' if ref $filter eq 'ARRAY';
24	next unless $key =~ m{$filter};
25	}
26
27	my $path = "/tmp/sack.gnuplot.$key.txt";
28	open( my $fh, '>', $path ) \|\| die "$path: $!";
29	print $fh "## out key=$key\n";
30
31	foreach my $name ( sort keys %{ $out->{$key} } ) {
32
33	my $v = $out->{$key}->{$name};
34
35	print $fh "$name $v\n";
36
37	}
38
39	close($fh);
40
41	warn "data $path ", -s $path, " bytes\n";
42
43	push @plot, qq\|"$path" using 1:2 title "$title" with linespoints\|;
44	$uid .= $key;
45	}
46
47	my $path = "/tmp/sack.gnuplot.$uid.png";
48
49	open(my $gnuplot, '\|-', 'gnuplot') \|\| die "gnuplot $!";
50	print $gnuplot qq\|
51
52	set terminal png
53	set output '$path'
54
55	set xdata time
56	set timefmt "%Y-%m-%d"
57	set format x "%d.%m."
58	#set xrange [ "2009-01-01":"2010-01-01" ]
59	#set yrange [ 0 : ]
60
61	plot \|, join(',', @plot);
62
63	close($gnuplot);
64
65	warn "gnuplot $path ", -s $path, " bytes\n";
66
67	return $path;
68	}
69
70	1;