Re: Looking for help updating Perl 6 and Parrot part of Perl Myths talk

[Moritz Lenz]

Carl Mäsak wrote:
> Tim (>):
>> Anything else I should add, change or remove? I'm especially interested
>> in verifyable metrics showing effort, progress, or use. Ideally graphical.
>> Any interesting nuggets that fit with the theme will be most welcome.
> 
> Moritz++ and I were talking about making a graph showing the increase
> of Perl 6 projects lately. Proto's project.list contains all the
> pertinent history, so half an hour with git-log and SVG::Plot ought to
> be able to produce something nice. If no-one else takes that as a
> hint, I might look at it soonish. :)

I know produced this plot, attached is a .png, the perl script that
generates the data file and gnuplot file which turns that into a .png.

I'll also look into putting that plot up on rakudo.de and updating it by
cron job regularly.

Cheers,
Moritz

use strict;
use warnings;
use Date::Simple qw(date today);

my $d = date('2009-06-12');
my $grep_re = quotemeta '^\S+:';
open my $out, '>', 'projects.hist' or die $!;
while ($d < today()) {
    my $lines = `git-show he...@{$d}:projects.list`;
    my $count = () = $lines =~ m/^\S+:/mg;

    print $out "$d\t$count\n";
    $d++;
}
close $out or warn $!;

set terminal png transparent interlace large
set output 'proto-projects-list.png'
set style line 1 lw 3 lt 2 # green
set style line 2 lw 3 lt 1 # red
set style line 3 lw 3 lt 3 # blue
set style line 4 lw 3 lt 7 # yellow
set style line 5 lw 3 lt 0 # dunno
set title 'Projects known to Proto'
set xlabel 'Days'
set ylabel 'Number of projects'
set timefmt '%Y-%m-%d'
set xdata time
set xtics rotate
set format x "%Y-%m-%d'
set key left top

plot 'projects.hist' using 1:2 title 'projects'  with lines ls 1

# vim: ft=gnuplot tw=0

<<inline: proto-projects-list.png>>