Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
    printf "Avg of %d lines", scalar @data;
    print +(map {sprintf "%10.5f", $sum[$_] / @data} @idx), "\n";
}

#!/usr/bin/perl
use strict;
use warnings;
...
2011.01.13,22:00,1.33494,1.33563,1.33489,1.33524,318
2011.01.13,22:05,1.33524,1.33551,1.33512,1.33549,182
2011.01.14,22:05,1.33524,1.33551,1.33512,1.33549,182

C:\Old_Data\perlp>perl t33.pl
2011-01-13 21:00:00  -+-  2011-01-14 09:00:00
Avg of 9 lines   1.33478   1.33509   1.33458   1.33482
2011-01-14 22:00:00  -+-  2011-01-15 10:00:00
Avg of 1 lines   1.33524   1.33551   1.33512   1.33549