tim
/
utility-scripts
1
0
Fork 0
Code Issues Pull Requests Releases Activity

Some cleanups.

This commit is contained in:
Timothy Allen 2017-12-17 10:28:08 +02:00
parent a17efcbe7f
commit a43b67fe7e
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
glucometer_graphs.pl
View File

@ -5,6 +5,15 @@ use warnings;
use Getopt::Long;
use Time::Piece;
my $error = "Usage: $0 --input <CSV file> --output <output PDF> [--max <n.n>] [--low <n.n>] [--high <n.n>]\n";
my @lines;
my %seen;
my @data;
my $gnuplot_data;
my $total_graphs;
my $count_graphs = 0;
my $page_number = 0;
my $input = "";
my $output = "";
# set these values either in mmol/L or mg/dL (don't mix them)
@ -22,15 +31,6 @@ GetOptions ("input=s" => \$input, # The name of the CSV file from whic
die $error unless ( defined $input and defined $output );
my @lines;
my %seen;
my @data;
my $total_graphs;
my $count_graphs = 0;
my $page_number = 0;
my $error = "Usage: $0 --input <CSV file> --output <output PDF> [--max <n.n>] [--low <n.n>] [--high <n.n>]\n";
my $gnuplot_data;
open( my $fh, '<:encoding(UTF-8)', $input )
or die "Could not open file '$input' $!";
@ -178,5 +178,4 @@ $gnuplot_data = join "\n", @data;
print $gnuplot_data;
#gnuplot(@data);
# vim: set expandtab shiftwidth=4 softtabstop=4 :