Added option log_y

This commit is contained in:
hjp 2007-09-06 07:11:14 +00:00
parent ec78df4a1d
commit 8888279244
1 changed files with 7 additions and 4 deletions

11
tsplotv
View File

@ -44,11 +44,13 @@ my $legend_position = 'top right';
my $output_format ='png';
my $stacked = 0;
my $style = "lines";
my $log_y =0;
GetOptions('help|?' => \$help,
'legend_position|legend-position=s' => \$legend_position,
'output_format|output-format=s' => \$output_format,
'stacked' => \$stacked,
'style:s' => \$style,
'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,
) or pod2usage(2);
pod2usage(1) if $help;
@ -71,6 +73,7 @@ $ts->legend(@series);
$ts->legend_position($legend_position);
$ts->stacked($stacked);
$ts->style($style);
$ts->log_y($log_y);
for my $timestamp (sort keys %data) {
my %d = %{$data{$timestamp}};