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 $texto = `cat log.txt | grep rev | grep lines`;
  15 @lines = split(/\n/, $texto);
  16 my %hash, %users;
  17
  18 foreach $line (@lines) {
  19         @datos = split(/ /, $line);
  20         $hash{$datos[5]}++;
  21         $users{$datos[5]}{$datos[3]}++;
  22 }
  23
  24 print "PlaQui - Grafica de Progreso SVN\n";
  25 print "--------------------------------\n\n";
  26 print "Fecha  Commits\n";
  27
  28 foreach $date (sort keys %hash) {
  29         print "$date     ";
  30
  31         $win = "";
  32         $win_pts = -1;
  33         foreach $name (keys %{$users{$date}}) {
  34                 if ($users{$date}{$name} > $win_pts) {
  35                         $win = $name;
  36                         $win_pts = $users{$date}{$name};
  37                 } else {
  38                         if ($users{$date}{$name} = $win_pts) {
  39                                 $win = $win."|".$name;
  40                         }
  41                 }
  42         }
  43
  44         #Imprimo el Ganador
  45
  46         for($i=0; $i<$hash{$date}; $i++) {
  47                 print "*";
  48         }
  49         print "($win)";
  50         print "\n";
  51 }
  52
  53 print "\n";
  54 print "( ) = Máximo Commiteador del Día\n";
  55 print "* == 1 Commit\n";
  56