timeseries/tsplotvsql

#!/usr/bin/perl

=head1 NAME

tsplotv - plot time series given in vertical format

=head1 SYNOPSIS

tsplotv
[--dbname dbname]
[--finalresolution dpi]
[--legend-position pos]
[--log-y]
[--output-format format ]
[--stacked]
[--style style]
[--time_t]
[--colors rgb-list]
[--configfile yaml]
[--yrange min:max]
[query ...]

=head1 DESCRIPTION

This program expects time series data in vertical format, I.e.,
each line contains a tab-separated tripel <time, series, value>. 

The default legend position is "top right", same as with gnuplot.
Another frequently useful position (especially if you have lots of series)
is "below". Note that positions which consist of several words (such as
"top right" need to be passed to tsplotv as a single argument, so the 
space needs to be hidden from the shell by use of quotes or a backslash.

The default output format is "png", the default style is "lines".

See L<TimeSeries> for a description of possible legend positions,
output formats, and styles.

The --stacked option causes the time series to be stacked on top of each
other.

=cut

use v5.24;
use warnings;

use Getopt::Long;
use Pod::Usage;
use YAML qw(LoadFile);

use DBIx::SimpleConnect;
use TimeSeries;

my $help;
my $legend_position = 'top right';
my $output_format = 'png';
my $stacked = 0;
my $style = "lines";
my $log_y = 0;
my $finalresolution;
my $time_t = 0;
my $colors;
my $dbname;
my $configfile;
my $yrange;

GetOptions('help|?' => \$help,
	   'legend_position|legend-position=s'	=> \$legend_position,
	   'output_format|output-format=s' 	=> \$output_format,
	   'stacked'				=> \$stacked,
	   'style:s'				=> \$style,
	   'log_y|log-y'			=> \$log_y,
	   'finalresolution=i'		        => \$finalresolution,
	   'time_t'			        => \$time_t,
           'colors=s'                           => \$colors,
           'dbname=s'                           => \$dbname,
           'configfile=s'                       => \$configfile,
           'yrange=s'                           => \$yrange,
	  ) or pod2usage(2);
pod2usage(1) if $help;

my $config = LoadFile($configfile) if $configfile;

binmode STDOUT, ':raw';

my $ns = 0;
my %data;

$config->{timeseries} //= {};
for (keys $config->{timeseries}->%*) {
    $ns = $config->{timeseries}{$_}{order} if ($config->{timeseries}{$_}{order} // 0) > $ns;
}

my $dbh = DBIx::SimpleConnect->connect($dbname);

for my $q (@ARGV) {
    my $qdata = $dbh->selectall_arrayref($q);
    for my $r (@$qdata) {
        my ($timestamp, $series, $value) = @$r;
        $config->{timeseries}{$series}{order} = ++$ns unless ($config->{timeseries}{$series}{order});
        $data{$timestamp}{$series} = $value;
    }
}

my @series = sort { $config->{timeseries}{$a}{order} <=> $config->{timeseries}{$b}{order} }
                  keys $config->{timeseries}->%*;
if ($colors) {
    my @colors = split(/,/, $colors);
    while (my ($i, $c) = each(@colors)) {
	$config->{timeseries}{$series[$i]}{color} = $c;
    }
}

my $ts = TimeSeries->new(output_format => $output_format);
$ts->legend(@series);
$ts->legend_position($legend_position);
$ts->stacked($stacked);
$ts->style($style);
$ts->log_y($log_y);
$ts->finalresolution($finalresolution) if $finalresolution;
$ts->colors(map $config->{timeseries}{$_}{color}, @series);

if ($yrange) {
    $yrange =~s /^\[(.*)\]$/$1/; # remove optional brackets
    my ($min, $max) = $yrange =~ /^(\*|[-+0-9E.]+):(\*|[-+0-9E.]+)$/;
    $ts->yrange($min, $max);
}

for my $timestamp (sort keys %data) {
    my %d = %{$data{$timestamp}};
    my @values = @d{@series};
    if ($time_t) {
	$ts->add($timestamp, @values);
    } else {
	$ts->add_timestring($timestamp, @values);
    }
}

my $g = $ts->plot();
print $g