Como estoy en Windows, he creado un pequeño script que hace exactamente lo mismo en Perl, en lugar de Shell, o PowerShell px :):
#*******************************************************************************
# Module: delete_empty_changelist.pl
# Purpose: A script to delete empty changelist
#
@list = `p4 changes -s submitted`;
foreach $chg (@list)
{
$chgnbr = (split /\s+/, $chg)[1];
print `p4 change -d -f $chgnbr`;
}
exit 0;
Tenga en cuenta que, de hecho, , en todos los casos, no es un guión muy inteligente: se trata de eliminar absolutamente todas las listas de cambios presentado, y se evita mediante forzosamente para hacerlo, ya que si los archivos están asociados con ella, obtendrá un error.
supongo que el resultado de la secuencia de comandos debe ser enviada a un registro, y analizar, de manera que sólo las líneas relevantes se destacan.
La ejecución del script producirá una salida similar a:
Change 857 has 1 files associated with it and can't be deleted.
Change 856 has 1 fixes associated with it and can't be deleted.
Change 855 has 1 fixes associated with it and can't be deleted.
Change 854 deleted.
Change 853 has 1 fixes associated with it and can't be deleted.
Change 852 has 8 files associated with it and can't be deleted.
Change 851 has 1 files associated with it and can't be deleted.
Change 850 has 2 files associated with it and can't be deleted.
Change 849 has 2 files associated with it and can't be deleted.
Change 846 deleted.
Change 845 has 2 files associated with it and can't be deleted.
Cheers,
Thomas
Debe aceptar su propia respuesta (para marcar la pregunta como respondida). :-) – PhiLho
No pude usar las respuestas propuestas en mi PC con Windows, así que escribí un pequeño script PERL para hacer lo mismo. :-) –