Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Graphing Git commits with git + sh + Perl + Gnuplot

by Bucciarati (Novice)
on May 13, 2009 at 15:41 UTC ( [id://763801]=sourcecode: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    git log --pretty=format:%aD | while read s ; do date -d $s +'%u %H %M'
    + ; done | perl -Mstrict -le 'my $x = {}; while(my ($d, $h, $m) = spli
    +t " ", <>){ $d--; $_ = sprintf "%05d", 10_000 * $d + 100 * $h * 99 / 
    +23.0 + $m * 99 / 59.0; $x->{$_}++ } print "$_\t$x->{$_}" for sort key
    +s %$x' >! /tmp/git_minutes
    
  2. or download this
    gnuplot> plot [0:][0:] "/tmp/git_minutes" using 1:2 notitle
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: sourcecode [id://763801]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others admiring the Monastery: (3)
As of 2024-03-29 04:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found