Perl: Konsolen Farben entfernen

[Basti_litho]

Hallo,

ich bastle grad an einem einzeiler der mir die ganzen Konsolen Farben (\033[1;34m.....[0; ) rausschneidet.

Aber irgendwie komm ich nicht auf einen eleganten einzeiler.
Hier soweit hab ich's mittlerweile:


perl -pe 's/\\033\[.;..m//g' boot2.log|perl -pe 's/\\033\[1;.m \\033\[71G//g' - |perl -pe 's/\\033\[1;.m//g' - | perl -pe 's/\\033\[71G//g' -

Natürlich will ich's eben nicht bei diesen mehrfach pipes, lassen.

Fällt einem von euch vielleicht noch ne elegantere Möglichkeit.

Gruss,
Basti

[Basti_litho]

Ok, hat sich erledingt.

Lösung:


perl -pe 's/\\033\[[0-9];[0-9][0-9]*m//g' boot.log |perl -pe 's/\\033\[71G//g' -


Und, um es gleich zu ändern:


perl -pi -e 's/\\033\[[0-9];[0-9][0-9]*m//g' boot.log && perl -pi -e 's/\\033\[71G//g' boot.log