log_trace.pl

   1 #!/usr/bin/perl
   2 #
   3 # Scrip que muestra en forma grafica la evolucion de los commits
   4 #
   5 # by Ricardo Markiewicz <rmarkie@fi.uba.ar>
   6 #
   7 # The PlaQui Development Team
   8
   9 #open("log.txt", LOG);
  10 #@lines = <LOG>;
  11 #close(LOG);
  12
  13 $texto = `svn log | grep rev | grep lines`;
  14 @lines = split(/\n/, $texto);
  15 my %hash;
  16
  17 foreach $line (@lines) {
  18         @datos = split(/ /, $line);
  19         $hash{$datos[5]}++;
  20 }
  21
  22 print "PlaQui - Grafica de Progreso SVN\n";
  23 foreach $date (sort keys %hash) {
  24         print "$date\t";
  25         for($i=0; $i<$hash{$date}; $i++) {
  26                 print "*";
  27         }
  28         print "\n";
  29 }
  30