Sack/Server/Gnuplot.pm

package Sack::Server::Gnuplot;

use warnings;
use strict;

use Data::Dump qw(dump);
use Digest::MD5 qw(md5_hex);

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