Some cleanups.
This commit is contained in:
parent
a17efcbe7f
commit
a43b67fe7e
@ -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 :
|
||||
|
Loading…
Reference in New Issue
Block a user