my %hash, %users, $texto. $max;
if (shift eq "-d") {
- $texto = `svn log | grep rev | grep line`;
-} else {
- $texto = `cat ChangeLog | grep rev | grep line`;
+ $texto = `svn log > ChangeLog`;
}
+$texto = `egrep r[0-9]+ ChangeLog`;
+
@lines = split(/\n/, $texto);
$max = -1;
print "PlaQui - Grafica de Progreso SVN\n";
print "--------------------------------\n\n";
-print "Fech\t\tCommits\n";
+print "Fecha\t\tCommits\n";
foreach $date (sort keys %hash) {
print "$date\t";
}
print "\n";
-print "( ) = Máximo/s Commiteador/es del Día\n";
+print "Cantidad de commits por usuario:\n";
+print `egrep r[0-9]+ ChangeLog | awk '{print \$3}' | sort | uniq -c | sort -r`;
+print "\n";
+print "( ) = Máximo/s Commiteador/es del Día | ";
print "* == 2 Commit\n";