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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tsplotv
View File

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