if (shift eq "-d") {
$texto = `svn log > ChangeLog`;
}
-$texto = `egrep r[0-9]+ ChangeLog`;
+$texto = `egrep "rev [0-9]+" ChangeLog`;
@lines = split(/\n/, $texto);
print "\n";
print "Cantidad de commits por usuario:\n";
-print `egrep r[0-9]+ ChangeLog | awk '{print \$3}' | sort | uniq -c | sort -r`;
+print `egrep "rev [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";