Menghapus kode warna ANSI dari aliran teks

Memeriksa output dari

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

dalam editor teks (misalnya, vi) menunjukkan yang berikut:

^[[37mABC
^[[0m

Bagaimana cara menghapus kode warna ANSI dari file output? Saya kira cara terbaik adalah menyalurkan output melalui semacam editor aliran.

Berikut ini tidak berfungsi

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

Karakter ^[[37mdan ^[[0mmerupakan bagian dari urutan pelarian ANSI (kode CSI) . Lihat juga spesifikasi ini .

Menggunakan GNU sed

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

• \x1b(atau \x1B) adalah karakter spesial pelarian
  ( sedtidak mendukung alternatif \edan \033)
• \[ adalah karakter kedua dari urutan pelarian
• [0-9;]* adalah nilai warna regex
• m adalah karakter terakhir dari urutan pelarian

⚠ Pada macOS, sedperintah default tidak mendukung karakter khusus seperti yang \editunjukkan oleh slm dan steamer25 di komentar. Gunakan sebaliknya gsedyang dapat Anda instal menggunakan brew install gnu-sed.

Contoh dengan baris perintah _OP :   _{(OP berarti Poster Asli)}

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

Tom Hale menyarankan untuk menghapus semua urutan pelarian lainnya dengan menggunakan [a-zA-Z]alih-alih hanya huruf yang mspesifik untuk urutan melarikan diri mode grafis (warna). Tetapi [a-zA-Z]mungkin terlalu lebar dan bisa menghapus terlalu banyak. Michał Faleński dan Miguel Mota mengusulkan untuk menghapus hanya beberapa urutan melarikan diri menggunakan [mGKH]dan [mGKF]masing - masing. Britton Kerin menunjukkan Kjuga harus digunakan selain muntuk menghapus warna dari gcckesalahan / peringatan (jangan lupa untuk mengarahkan ulang 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

Menggunakan perl

Versi yang seddiinstal pada beberapa sistem operasi mungkin terbatas (mis. MacOS). Perintah ini perlmemiliki keuntungan karena secara umum lebih mudah untuk menginstal / memperbarui pada lebih banyak sistem operasi. Adam Katz menyarankan untuk menggunakan \e(sama seperti \x1b) di PCRE .

Pilih regex Anda tergantung pada seberapa banyak perintah yang ingin Anda filter:

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

Contoh dengan baris perintah OP:

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

Pemakaian

Seperti yang ditunjukkan oleh komentar Stuart Cardall , sedbaris perintah ini digunakan oleh proyek Ultimate Nginx Bad Bot (1000 bintang) untuk membersihkan laporan email ;-)

Saya telah menemukan penghilang urutan pelarian yang lebih baik. Periksa ini:

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

Apa yang ditampilkan sebagai ^[yang tidak ^ dan [; itu adalah ESCkarakter ASCII , diproduksi oleh Escatau Ctrl[( ^notasi berarti kunci Ctrl).

ESCadalah 0x1B heksadesimal atau 033 oktal, jadi Anda harus menggunakan \x1Batau \033di regex Anda:

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

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

Jika Anda lebih suka sesuatu yang sederhana, Anda bisa menggunakan modul strip-ansi ( diperlukan Node.js ):

$ npm install --global strip-ansi-cli

Kemudian gunakan seperti ini:

$ strip-ansi < colors.o

Atau cukup masukkan string:

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

commandlinefu memberikan jawaban ini yang menghilangkan warna ANSI serta perintah gerakan:

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

Untuk warna saja, Anda ingin:

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

Saya percaya ini adalah penghapusan semua urutan melarikan diri 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;'

(Harap dicatat bahwa perl, seperti banyak bahasa lain (tetapi tidak sed), menerima \esebagai karakter pelarian Esc, \x1batau \033dengan kode, ditunjukkan dalam terminal sebagai ^[. Saya menggunakannya di sini karena tampaknya lebih intuitif.)

Perintah perl ini, yang bisa Anda jalankan semua dalam satu baris jika Anda mau, memiliki empat penggantian di dalamnya:

Yang pertama setelah sekuens CSI (urutan kode escape yang dimulai dengan "Control Sequence Introducer" of Esc[, yang mencakup lebih banyak daripada sekuens Select Graphic Rendition yang membentuk kode warna dan dekorasi teks lainnya).

Penggantian kedua menghapus urutan yang tersisa yang melibatkan karakter tambahan dan diakhiri dengan ST (Terminator String, Esc\). Penggantian ketiga adalah hal yang sama tetapi juga memungkinkan Sistem Operasi Command urutan untuk mengakhiri dengan BEL ( \x07, \007, sering \a).

Penggantian keempat menghilangkan sisa yang tersisa.

Juga pertimbangkan untuk menghapus karakter ASCII dengan lebar nol lainnya seperti BEL dan karakter kontrol C0 dan C1 lainnya yang tidak jelas . Saya telah menggunakan s/[\x00-\x1f\x7f-\x9f\xad]+//g, yang juga termasuk Hapus dan Tanda Hubung Lunak . Ini tidak termasuk karakter nol-lebar berkode lebih tinggi dari Unicode, tetapi saya percaya ini lengkap untuk ASCII (Unicode \x00- \xff). Jika Anda melakukan ini, hapus yang terakhir karena mereka dapat terlibat dalam urutan yang lebih panjang.

Pertanyaan "dijawab" tidak berhasil untuk saya, jadi saya membuat regex ini sebagai gantinya untuk menghapus urutan pelepasan yang dihasilkan oleh perl Term :: ANSIColor module.

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

Regex Grawity seharusnya bekerja dengan baik, tetapi menggunakan + tampaknya juga berfungsi.

"tput sgr0" meninggalkan karakter kontrol ini ^ (B ^ [
Ini adalah versi yang dimodifikasi untuk mengatasi hal itu.

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

Saya memiliki masalah yang sama dengan menghapus karakter yang ditambahkan dari mengumpulkan output top interaktif melalui dempul dan ini membantu:

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

Inilah yang bekerja untuk saya (diuji pada Mac OS X)

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