[libremanage.git] / libremanage-uncolor

#!/usr/bin/env perl
## uncolor ? remove terminal escape sequences such as color changes
## Source: https://unix.stackexchange.com/questions/14684/removing-control-chars-including-console-codes-colours-from-script-output by Gilles
while (<>) {
    s/ \e[ #%()*+\-.\/]. |
       \e\[ [ -?]* [@-~] | # CSI ... Cmd
       \e\] .*? (?:\e\\|[\a\x9c]) | # OSC ... (ST|BEL)
       \e[P^_] .*? (?:\e\\|\x9c) | # (DCS|PM|APC) ... ST
       \e. //xg;
    print;
}
Commit	Line	Data
a63343a0 AR	1	#!/usr/bin/env perl
	2	## uncolor ? remove terminal escape sequences such as color changes
	3	## Source: https://unix.stackexchange.com/questions/14684/removing-control-chars-including-console-codes-colours-from-script-output by Gilles
	4	while (<>) {
	5	s/ \e[ #%()*+\-.\/]. \|
	6	\e\[ [ -?]* [@-~] \| # CSI ... Cmd
	7	\e\] .*? (?:\e\\\|[\a\x9c]) \| # OSC ... (ST\|BEL)
	8	\e[P^_] .*? (?:\e\\\|\x9c) \| # (DCS\|PM\|APC) ... ST
	9	\e. //xg;
	10	print;
	11	}