Discussion :

[flq06]

Bonjour,

Je cherche un module ou sinon une methode pour enlever le gribouillie d'un VT100(code de couleur, de curseur, etc...) dans un fichier de log.

Je decouvre perl alors je suis loin de connaitre tout les modules. Je n'ai cependant rien trouver d'interressant dans CPAN.

Merci du coup de main.

[Philou67430]

Je crois que Term::VT102 répond à ton besoin, et notamment le script fournis en exemple dans le répertoire examples : sanitize-dump.pl

J'extrais l'entête du script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#
# Example script that sanitizes a log file, such as that created by
# screen(1) or script(1) (or even one of Term::VT102's other example
# scripts).
#
# Any cursor positioning and other control codes are removed, leaving only
# complete lines of text, optionally including ANSI/ECMA-48 colour and
# attribute change sequences.
#
# Arguments are <width> <height> [colour|plain] - if nothing is provided,
# the default is to assume an 80x24 terminal with colour output.
#
# Data is read from standard input and written to standard output.
#

[Philou67430]

Autre solution avec le module Regexp::Common::ANSIescape :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/usr/bin/perl
 
use strict;
use warnings;
 
use Regexp::Common qw(ANSIescape);
 
my $ansi = "\033[s\033[J\033[10;10f".("TOTO " x 10)."\033[u";
print quotemeta $ansi, "\n", $ansi;
 
$ansi =~ s/$RE{ANSIescape}//g;
print $ansi;