voy completando, estoy pensando como estirar frases para que queden re guaaaauuuu

[z.facultad/75.42/plaqui.git] / log_trace.pl

diff --git a/log_trace.pl b/log_trace.pl
index f1716d34dafb86cd0116d1e9fb28c73e19f4521f..428893b17a22de68a1489ee92cfd5c6a607ab10b 100755 (executable)
--- a/log_trace.pl
+++ b/log_trace.pl
@@ -10,21 +10,47 @@
 #@lines = <LOG>;
 #close(LOG);
 
 #@lines = <LOG>;
 #close(LOG);
 

-$texto = `svn log | grep rev | grep lines`;
+#$texto = `svn log | grep rev | grep lines`;
+$texto = `cat log.txt | grep rev | grep lines`;

 @lines = split(/\n/, $texto);
 @lines = split(/\n/, $texto);

-my %hash;
+my %hash, %users;

 
 foreach $line (@lines) {
        @datos = split(/ /, $line);
        $hash{$datos[5]}++;
 
 foreach $line (@lines) {
        @datos = split(/ /, $line);
        $hash{$datos[5]}++;

+       $users{$datos[5]}{$datos[3]}++;

 }
 
 print "PlaQui - Grafica de Progreso SVN\n";
 }
 
 print "PlaQui - Grafica de Progreso SVN\n";

+print "--------------------------------\n\n";
+print "Fecha  Commits\n";
+

 foreach $date (sort keys %hash) {
 foreach $date (sort keys %hash) {

-       print "$date\t";
+       print "$date     ";
+       
+       $win = "";
+       $win_pts = -1;
+       foreach $name (keys %{$users{$date}}) {
+               if ($users{$date}{$name} > $win_pts) {
+                       $win = $name;
+                       $win_pts = $users{$date}{$name};
+               } else {
+                       if ($users{$date}{$name} = $win_pts) {
+                               $win = $win."|".$name;
+                       }
+               }
+       }
+
+       #Imprimo el Ganador
+

        for($i=0; $i<$hash{$date}; $i++) {
                print "*";
        }
        for($i=0; $i<$hash{$date}; $i++) {
                print "*";
        }

+       print "($win)";

        print "\n";
 }
 
        print "\n";
 }
 

+print "\n";
+print "( ) = Máximo Commiteador del Día\n";
+print "* == 1 Commit\n";
+