hjp
/
timeseries
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

option --keeptempfiles for debugging

This commit is contained in:
hjp 2010-04-02 07:52:05 +00:00
parent 358feec650
commit c39fbfb48b
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tsplot
View File

@ -52,12 +52,14 @@ my $time_t =0;
my $style = "lines"; my $style = "lines";
my $tsv = 0; my $tsv = 0;
my $stacked = 0; my $stacked = 0;
my $keeptempfiles;
GetOptions('output_format|output-format=s' => \$output_format, GetOptions('output_format|output-format=s' => \$output_format,
'log_y|log-y' => \$log_y, 'log_y|log-y' => \$log_y,
'time_t' => \$time_t, 'time_t' => \$time_t,
'style:s' => \$style, 'style:s' => \$style,
'tsv' => \$tsv, 'tsv' => \$tsv,
'stacked' => \$stacked, 'stacked' => \$stacked,
'keeptempfiles' => \$keeptempfiles,
) )
or pod2usage(verbose => 0); or pod2usage(verbose => 0);
@ -66,6 +68,7 @@ my $sep = $tsv ? qr/\t/ : ' ';
binmode STDOUT, ':raw'; binmode STDOUT, ':raw';
my $ts = TimeSeries->new(output_format => $output_format); my $ts = TimeSeries->new(output_format => $output_format);
$ts->{keeptempfiles} = 1 if $keeptempfiles;
while (<>) { while (<>) {
chomp; chomp;
my @legend = split($sep); my @legend = split($sep);