Advertise here: Contact FM.
perl -lane 'next if (/^\D/);
my $t=substr($F[3], 0, 2).substr($F[3], 3, 1); $n{$t} += $F[4]; $p{$t}++; }
for my $t (sort keys %n) { printf("%.1f,", $n{$t}/$p{$t}); ' postdata_askme.txtperl -MDate::Manip -lane 'next if (/^\D/);
my $t=UnixDate("$F[2] $F[3]", "%w%H"); $n{$t} += $F[4]; $p{$t}++; }
for my $t (sort keys %n) { printf("%.1f,", $n{$t}/$p{$t}); ' postdata_askme.txt(Note that Date::Manip is obviously slower than substr(). This took 2 minutes to run on my Core 2 Duo T7300.)
posted by Artw at 11:15 AM on March 9