use Parse::Lex; my $lexer = Parse::Lex->new (qw( SC ESC7 BOLD \[0;1m )); my $buffer = 'ESC7ESC[002;002HESC[0;1m . ESC[0;1mESC8ESC7ESC[002;01 +0HESC[0;1m . ESC[0;1mESC8ESC7ESC[003;002HESC[0;1;5m ESC[0;1mE +SC8'; $lexer->from($buffer); $lexer->every (sub { print $_[0]->name, "\t"; print $_[0]->text, "\n"; });
In reply to Parse::Lex error message by cgraf
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |