dat2gnuplot

#!/usr/bin/perl

use strict;
use warnings;

use Getopt::Long;

my $file = shift @ARGV;

GetOptions(
   'm|messages' => \my $AGAINST_MESSAGES,
) or exit 1;

open my $pipeh, "|-", "gnuplot", "--persist" or
   die "Cannot popen gnuplot - $!";

print $pipeh <<"EOF";
set title "$file"
set ylabel "Latency, seconds"

EOF

my @plots = (
   '4 title "p10" with line',
   '5 title "p25" with line',
   '6 title "p50" with line linewidth 2',
   '7 title "p75" with line',
   '8 title "p90" with line',
);

my $xcolumn = $AGAINST_MESSAGES ? "2" : "1";

my $PLOTS = join( ", ", map { qq("$file" using ${xcolumn}:$_) } @plots );

if( $AGAINST_MESSAGES ) {
   print $pipeh qq(set xlabel "Messages"\n);
}
else {
   print $pipeh qq(set xlabel "Time, seconds"\nset xtics 60\n);
}

print $pipeh "plot $PLOTS\n";