[Perl] secuencia de escape

[Salvador Ortiz Garcia]

On Tue, 21 Aug 2001, Raul Argaez wrote:

> Hola listeros !
> Tal vez la pregunta es tonta, pero =BFcomo puedo expresar una secuencia d=
e=20
> escape que tengo que mandar a la impresora para que me imprima con=20
> determinado tipo de letra?
>=20
> concretamente me refiero a la forma de expresarla en el string a mandar.

Las secuencias de escape para las impresoras suelen comenzar con el
caracter escape, valga la redundancia, que en perl se puede generar
con 'chr(27)' o poner entre comillas dobles como:=20

\e      short form
\033    octal form
\x1B    hex form
\c[     control form

Un ejemplo para una impresora HP con lenguaje PCL5:

   #!/usr/bin/perl
   open(PRT, '|lpr');
   print PRT "\e(s1p720v4101T\e&a0h7200VA\eE";
   close(PRT) or die 'Error en la impresora';


Saludos

Salvador Ortiz