19 lines
333 B
Plaintext
19 lines
333 B
Plaintext
|
#!/usr/bin/perl -w
|
||
|
|
use strict;
|
||
|
|
use TimeSeries;
|
||
|
|
|
||
|
|
my $ts = TimeSeries->new();
|
||
|
|
while (<>) {
|
||
|
|
my @legend = split;
|
||
|
|
shift @legend; # first must be for timestamp
|
||
|
|
$ts->legend(@legend);
|
||
|
|
last;
|
||
|
|
}
|
||
|
|
while (<>) {
|
||
|
|
my ($timestamp, @values) = split();
|
||
|
|
$ts->add_timestring($timestamp, @values);
|
||
|
|
}
|
||
|
|
|
||
|
|
my $g = $ts->plot();
|
||
|
|
print $g
|