#!/usr/local/bin/perl -w use strict; use Template; use DateTime; use YAML qw( Load ); my $tmpl = Template->new; my $data = join "", ; my $points = Load( join "", <> ); my $tracks = ""; for my $point ( @$points ) { my $dt = DateTime->from_epoch( epoch => $point->{ time } ); $dt->set_time_zone( "local" ); $tracks .= ", " if length $tracks; $tracks .= sprintf "[[%d, %d, %d], %d]", $dt->hour, $dt->minute, $dt->second, int( $point->{ ele } ); } $tmpl->process( \$data, { tracks => $tracks } ) or die $tmpl->error(); __DATA__