Ano-Tech Computers
Enter keyword:

Perl: Remove ANSI sequences from a string
Problem:
When processing terminal data or text files containing ANSI escape sequences, it can sometimes be useful to filter these out
 
Solution:
sub remove_ansi {
for (@_) {
$_ =~ s/\033\[[\?|0-9|\;]+?[a-z]//gi;
}
}

Use like 'chop' and 'chomp', for example:

remove_ansi $string; # Remove ANSI from $string
remove_ansi $a, $b; # Remove ANSI from $a and $b

Note:
$string = remove_ansi $string; # Does NOT do what you expect!

 
Discuss this solution
Did this article solve your problem? Yes No Did not apply

This is free technical advice without any warranties. Use at your own risk. Solutions offered may not apply to your particular problem at all. Opinions and views expressed in the articles are the authors' personal and may not necessarily reflect or coincide with those of Ano-Tech Computers. We take no responsibility if anything bad happens from following any of the intructions given. If you don't understand and accept this, please contact us for personal assistance instead.
To read our full disclaimer, go here.

We welcome anyone who is willing to contribute to this public knowledge base, contact siteadmin@atc.no if you have information you would like to share. The idea is not to replace the commercial support sites, but to publish those hard-to-find solutions you've found yourself looking for over and over again.

Show all articles