chart.pl

#!/usr/bin/perl

use strict;
use warnings;

use Chart::Pie;
use IO::File;

my $pie = Chart::Pie->new(640, 480);
my $score;

my $io = new IO::File($ENV{HISTFILE});

for($io->getlines) {
	/^:\s*\d*:\d*;(\w+)/ or next;
	++$score->{$1};
}

my $top = {
	map { $_ => $score->{$_} }
	(sort { $score->{$b} <=> $score->{$a} } keys %$score)[0 .. 9]
};

$pie->add_dataset(keys %$top);
$pie->add_dataset(values %$top);
$pie->png("history.png");