Skip to main content
se añadió 1 carácter en el cuerpo
Origen Enlace
Julio
  • 3.4k
  • 1
  • 9
  • 23

Prueba con lo siguiente:

Si tienes que eliminar un número de líneas exactas:

cat mi_fichero | REPETICIONES=3 perl -0777 -ne '$R=$ENV{REPETICIONES}-1;s/^(.+)\R(\1(?:\R|\z)){$R}(\1(?:\R|\z))*/defined $3?$&:""/gme;print'

Para cambiar las repeticiones, puedes cambiar simplemente la variable que precede al comando en perl.

Si tienes que eliminar un número de líneas mínimo (por ejemplo: 3 o más):

cat mi_fichero | REPETICIONES=3 perl -0777 -ne '$R=$ENV{REPETICIONES}-1;s/^(.*)(\R)(?:\1(?:\R|\z)){2$R,}//gm;print'

Prueba con lo siguiente:

Si tienes que eliminar un número de líneas exactas:

cat mi_fichero | REPETICIONES=3 perl -0777 -ne '$R=$ENV{REPETICIONES}-1;s/^(.+)\R(\1(?:\R|\z)){$R}(\1(?:\R|\z))*/defined $3?$&:""/gme;print'

Para cambiar las repeticiones, puedes cambiar simplemente la variable que precede al comando en perl.

Si tienes que eliminar un número de líneas mínimo (por ejemplo: 3 o más):

cat mi_fichero | REPETICIONES=3 perl -0777 -ne '$R=$ENV{REPETICIONES}-1;s/^(.*)(\R)(?:\1(?:\R|\z)){2,}//gm;print'

Prueba con lo siguiente:

Si tienes que eliminar un número de líneas exactas:

cat mi_fichero | REPETICIONES=3 perl -0777 -ne '$R=$ENV{REPETICIONES}-1;s/^(.+)\R(\1(?:\R|\z)){$R}(\1(?:\R|\z))*/defined $3?$&:""/gme;print'

Para cambiar las repeticiones, puedes cambiar simplemente la variable que precede al comando en perl.

Si tienes que eliminar un número de líneas mínimo (por ejemplo: 3 o más):

cat mi_fichero | REPETICIONES=3 perl -0777 -ne '$R=$ENV{REPETICIONES}-1;s/^(.*)(\R)(?:\1(?:\R|\z)){$R,}//gm;print'
Origen Enlace
Julio
  • 3.4k
  • 1
  • 9
  • 23

Prueba con lo siguiente:

Si tienes que eliminar un número de líneas exactas:

cat mi_fichero | REPETICIONES=3 perl -0777 -ne '$R=$ENV{REPETICIONES}-1;s/^(.+)\R(\1(?:\R|\z)){$R}(\1(?:\R|\z))*/defined $3?$&:""/gme;print'

Para cambiar las repeticiones, puedes cambiar simplemente la variable que precede al comando en perl.

Si tienes que eliminar un número de líneas mínimo (por ejemplo: 3 o más):

cat mi_fichero | REPETICIONES=3 perl -0777 -ne '$R=$ENV{REPETICIONES}-1;s/^(.*)(\R)(?:\1(?:\R|\z)){2,}//gm;print'