Eliminar códigos de color ANSI de la secuencia de texto

Examinando la salida de

perl -e 'use Term::ANSIColor; print color "white"; print "ABC\n"; print color "reset";'

en un editor de texto (p. ej. vi) muestra lo siguiente:

^[[37mABC
^[[0m

¿Cómo se eliminarían los códigos de color ANSI del archivo de salida? Supongo que la mejor manera sería canalizar la salida a través de un tipo de editor de flujo.

Lo siguiente no funciona

perl -e 'use Term::ANSIColor; print color "white"; print "ABC\n"; print color "reset";' | perl -pe 's/\^\[\[37m//g' | perl -pe 's/\^\[\[0m//g'

Los caracteres ^[[37my ^[[0mson parte de las secuencias de escape ANSI (códigos CSI) . Ver también estas especificaciones .

Usando GNU sed

sed 's/\x1b\[[0-9;]*m//g'

• \x1b(o \x1B) es el carácter especial de escape
  ( sedno admite alternativas \ey \033)
• \[ es el segundo personaje de la secuencia de escape
• [0-9;]* son los valores de color regex
• m es el último personaje de la secuencia de escape

Mac En macOS, el sedcomando predeterminado no admite caracteres especiales \ecomo los señalados por slm y steamer25 en los comentarios. Use en su lugar gsedque puede instalar usando brew install gnu-sed.

Ejemplo con la línea de comando de _OP :   _{(OP significa Cartel original)}

perl -e 'use Term::ANSIColor; print color "white"; print "ABC\n"; print color "reset";' | 
      sed 's/\x1b\[[0-9;]*m//g'

Tom Hale sugiere eliminar todas las demás secuencias de escape utilizando en [a-zA-Z]lugar de solo la letra mespecífica de la secuencia de escape del modo de gráficos (color). Pero [a-zA-Z]puede ser demasiado ancho y podría eliminar demasiado. Michał Faleński y Miguel Mota proponen eliminar solo algunas secuencias de escape usando [mGKH]y [mGKF]respectivamente. Britton Kerin indica Kque también se debe usar además de meliminar los colores del gccerror / advertencia (no se olvide de redirigir gcc 2>&1 | sed...).

sed 's/\x1b\[[0-9;]*m//g'           # Remove color sequences only
sed 's/\x1b\[[0-9;]*[a-zA-Z]//g'    # Remove all escape sequences
sed 's/\x1b\[[0-9;]*[mGKH]//g'      # Remove color and move sequences
sed 's/\x1b\[[0-9;]*[mGKF]//g'      # Remove color and move sequences

Last escape
sequence
character   Purpose
---------   -------------------------------
m           Graphics Rendition Mode (including Color)
G           Horizontal cursor move
K           Horizontal deletion
H           New cursor position
F           Move cursor to previous n lines

Utilizando perl

La versión de sedinstalado en algunos sistemas operativos puede ser limitada (por ejemplo, macOS). El comando perltiene la ventaja de ser generalmente más fácil de instalar / actualizar en más sistemas operativos. Adam Katz sugiere usar \e(igual que \x1b) en PCRE .

Elija su expresión regular en función de la cantidad de comandos que desea filtrar:

perl -pe 's/\e\[[0-9;]*m//g'          # Remove colors only
perl -pe 's/\e\[[0-9;]*[mG]//g'
perl -pe 's/\e\[[0-9;]*[mGKH]//g'
perl -pe 's/\e\[[0-9;]*[a-zA-Z]//g'
perl -pe 's/\e\[[0-9;]*m(?:\e\[K)?//g' # Adam Katz's trick

Ejemplo con la línea de comando de OP:

perl -e 'use Term::ANSIColor; print color "white"; print "ABC\n"; print color "reset";' \
      | perl -pe 's/\e\[[0-9;]*m//g'

Uso

Como lo señaló el comentario de Stuart Cardall , esta sedlínea de comando es utilizada por el proyecto Ultimate Nginx Bad Bot (1000 estrellas) para limpiar el informe del correo electrónico ;-)

He encontrado un mejor eliminador de secuencia de escape. Mira esto:

perl -pe 's/\x1b\[[0-9;]*[mG]//g'

Lo que se muestra como no^[ es y ; es el carácter ASCII , producido por o (la notación significa la tecla Ctrl). ^[ESCEscCtrl[^

ESCes 0x1B hexadecimal u 033 octal, por lo que debe usar \x1Bo \033en sus expresiones regulares:

perl -pe 's/\033\[37m//g; s/\033[0m//g'

perl -pe 's/\033\[\d*(;\d*)*m//g'

Si prefiere algo simple, puede usar el módulo strip-ansi (se requiere Node.js ):

$ npm install --global strip-ansi-cli

Entonces úsalo así:

$ strip-ansi < colors.o

O simplemente pasar una cadena:

$ strip-ansi '^[[37mABC^[[0m'

commandlinefu da esta respuesta que elimina los colores ANSI y los comandos de movimiento:

sed "s,\x1B\[[0-9;]*[a-zA-Z],,g"

Por solo colores, quieres:

 sed "s,\x1B\[[0-9;]*m,,g"

Creo que esta es una eliminación autorizada de todas las secuencias de escape ANSI :

perl -pe '
  s/\e\[[\x30-\x3f]*[\x20-\x2f]*[\x40-\x7e]//g;
  s/\e[PX^_].*?\e\\//g;
  s/\e\][^\a]*(?:\a|\e\\)//g;
  s/\e[\[\]A-Z\\^_@]//g;'

(Tenga en cuenta que perl, como muchos otros idiomas (pero no sed), acepta \ecomo carácter de escape Esc, \x1bo \033por código, que se muestra en las terminales como ^[. Lo estoy usando aquí porque parece más intuitivo).

Este comando perl, que puede ejecutar todo en una línea si lo prefiere, tiene cuatro reemplazos:

El primero va después de las secuencias CSI (secuencias de código de escape que comienzan con el "Introductor de secuencia de control" de Esc[, que cubre mucho más que las secuencias Seleccionar representación gráfica que componen los códigos de color y otras decoraciones de texto).

El segundo reemplazo elimina las secuencias restantes que involucran caracteres finales y terminan con ST (String Terminator, Esc\). El tercero de reemplazo es lo mismo, pero también permite comando del sistema operativo secuencias de terminar con una BEL ( \x07, \007, a menudo \a).

El cuarto reemplazo elimina los escapes restantes.

También considere eliminar otros caracteres ASCII de ancho cero, como BEL y otros caracteres de control C0 y C1 más oscuros . He estado usando s/[\x00-\x1f\x7f-\x9f\xad]+//g, que también incluye Delete y Soft Hyphen . Esto excluye los caracteres de ancho cero codificados más altos de Unicode, pero creo que es exhaustivo para ASCII (Unicode \x00- \xff). Si hace esto, elimine estos últimos ya que pueden estar involucrados en secuencias más largas.

La pregunta "respondida" no funcionó para mí, así que creé esta expresión regular para eliminar las secuencias de escape producidas por el módulo Perl Term :: ANSIColor.

cat colors.o | perl -pe 's/\x1b\[[^m]+m//g;

La expresión regular de Grawity debería funcionar bien, pero el uso de + también parece funcionar bien.

"tput sgr0" dejó este carácter de control ^ (B ^ [
Aquí hay una versión modificada para encargarse de eso.

perl -pe 's/\e[\[\(][0-9;]*[mGKFB]//g' logfile.log

Tuve un problema similar con la eliminación de caracteres agregados de la recopilación de salida superior interactiva a través de masilla y esto ayudó:

cat putty1.log | perl -pe 's/\x1b.*?[mGKH]//g'

Esto es lo que funcionó para mí (probado en Mac OS X)

perl -pe 's/\[[0-9;]*[mGKF]//g'