Removendo códigos de cores ANSI do fluxo de texto

Examinando a saída de

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

em um editor de texto (por exemplo, vi) mostra o seguinte:

^[[37mABC
^[[0m

Como remover os códigos de cores ANSI do arquivo de saída? Suponho que a melhor maneira seria canalizar a saída através de um tipo de editor de fluxo.

O seguinte não 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'

Os caracteres ^[[37me ^[[0mfazem parte das seqüências de escape ANSI (códigos CSI) . Veja também estas especificações .

Usando GNU sed

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

• \x1b(ou \x1B) é o caractere especial de escape
  ( sednão suporta alternativas \ee \033)
• \[ é o segundo caractere da sequência de escape
• [0-9;]* é o (s) valor (es) de cor regex
• m é o último caractere da sequência de escape

Mac No macOS, o sedcomando padrão não suporta caracteres especiais, como \eindicado por slm e steamer25 nos comentários. Em vez disso, use gsedque você pode instalar usando brew install gnu-sed.

Exemplo com a linha de comando do OP:   _{(OP significa Pôster original)}

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

Tom Hale sugere remover todas as outras seqüências de escape usando em [a-zA-Z]vez da letra mespecífica da seqüência de escape do modo de gráfico (cor). Mas [a-zA-Z]pode ser muito largo e pode remover muito. Michał Faleński e Miguel Mota propõem remover apenas algumas seqüências de escape usando [mGKH]e [mGKF]respectivamente. Britton Kerin indica Kque também deve ser usado além de mremover as cores de gccerro / aviso (não se esqueça de redirecionar 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

Usando perl

A versão do sedinstalada em alguns sistemas operacionais pode ser limitada (por exemplo, macOS). O comando perltem a vantagem de ser geralmente mais fácil de instalar / atualizar em mais sistemas operacionais. Adam Katz sugere usar \e(o mesmo que \x1b) no PCRE .

Escolha seu regex dependendo de quantos comandos você deseja 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

Exemplo com a linha de comando do OP:

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

Uso

Conforme apontado pelo comentário de Stuart Cardall , essa sedlinha de comando é usada pelo projeto Ultimate Nginx Bad Bot (1000 estrelas) para limpar o relatório de email ;-)

Eu descobri um melhor removedor de seqüência de escape. Verifique isto:

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

O que é exibido como não^[ é e ; é o caractere ASCII , produzido por ou (a notação significa a tecla Ctrl). ^[ESCEscCtrl[^

ESCé 0x1B hexadecimal ou 033 octal, então você deve usar \x1Bou \033em suas expressões regulares:

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

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

Se você preferir algo simples, poderá usar o módulo strip-ansi (é necessário o Node.js. ):

$ npm install --global strip-ansi-cli

Em seguida, use-o assim:

$ strip-ansi < colors.o

Ou apenas passe uma string:

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

commandlinefu fornece esta resposta que retira as cores ANSI e os comandos de movimento:

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

Para apenas cores, você deseja:

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

Eu acredito que esta é uma remoção autorizada de todas as seqüências 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;'

(Observe que o perl, como muitos outros idiomas (mas não o sed), aceita \ecomo caractere de escape Esc, \x1bou \033por código, mostrado nos terminais como ^[. Estou usando-o aqui porque parece mais intuitivo.)

Este comando perl, que você pode executar todos em uma linha, se preferir, possui quatro substituições:

A primeira ocorre após as seqüências CSI (sequências de códigos de escape que começam com o "Control Sequence Introducer" de Esc[, que abrange muito mais do que as sequências Select Graphic Rendition que compõem os códigos de cores e outras decorações de texto).

A segunda substituição remove as seqüências restantes que envolvem caracteres finais e termina com ST (o terminador de seqüência de caracteres Esc\). A terceira substituição é a mesma coisa, mas também permite Operacional comando do sistema seqüências para acabar com um BEL ( \x07, \007, muitas vezes \a).

A quarta substituição remove as fugas restantes.

Considere também remover outros caracteres ASCII de largura zero, como BEL e outros caracteres de controle C0 e C1 mais obscuros . Eu tenho usado s/[\x00-\x1f\x7f-\x9f\xad]+//g, que também inclui Excluir e Soft Hífen . Isso exclui os caracteres de largura zero codificados mais altos do Unicode, mas acredito que seja exaustivo para o ASCII (Unicode \x00- \xff). Se você fizer isso, remova esses últimos, pois eles podem estar envolvidos em seqüências mais longas.

A pergunta "respondida" não funcionou para mim, então criei esse regex para remover as seqüências de escape produzidas pelo módulo Perl Term :: ANSIColor.

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

O regex do Grawity deve funcionar bem, mas o uso de + parece funcionar também.

"tput sgr0" deixou esse caractere de controle ^ (B ^ [
Aqui está uma versão modificada para cuidar disso.

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

Eu tive um problema semelhante com a remoção de caracteres adicionados ao coletar saída superior interativa via massa e isso ajudou:

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

Foi isso que funcionou para mim (testado no Mac OS X)

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