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

Merge branch 'master' of git.hjp.at:hjp/timeseries

This commit is contained in:
Peter J. Holzer 2020-02-16 10:51:53 +01:00
parent b574ed25cc 7fc7cb46a9
commit 0d47dee3cd
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
TimeSeries.pm
View File

@ -616,11 +616,27 @@ sub get_ticks {
$nexttime = sub { return $_[0] + 60 };
}
my $time = $firsttime;
my $time = $nexttime->($firsttime);
my $llb;
for (;;) {
push @ticks, [$time, strftime($label, localtime($time))];
my $lb = strftime($label, localtime($time));
my $dlb = $lb;
if ($llb) {
my @lc = split(/(\d+)/, $llb);
my @c = split(/(\d+)/, $lb);
for my $i (0 .. $#c) {
if ($c[$i] eq $lc[$i]) {
$c[$i] = " " x length($c[$i]);
} else {
last;
}
}
$dlb = join("", @c);
}
push @ticks, [$time, $dlb];
if ($time > $lasttime) {last}
$time = $nexttime->($time);
$llb = $lb;
}
return @ticks;