Foro - Perl en Español

Publicado: **2012-10-03 11:21 @514**

Tengo el siguiente código. El problema es que devuelve algo sin forma.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

  use Image::Caa;
  use Image::Magick;
 
  # load an image
 
  my $image = Image::Magick->new;
  $image->Read('asciiuno.jpg');
 
  # display it as ASCII Art
 
  my $caa = new Image::Caa();
 $caa->draw_bitmap(0, 0, 40, 20, $image);
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

y devuelve esto (es más largo):

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

←[37;2;40;6mM←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m

@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;2;40;6mM←[0m←[37;1;

40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[

37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;2;40;6mM←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←

[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40

;6m8←[0m←[37;2;40;6mM←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37

;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;2;40;6mM←[0

m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6

m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;2;40;6mM←[0m

←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m

8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m#←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;

40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[

37;1;40;6m#←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←

[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m#←[0m←[37;1;40

;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37

;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m#←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0

m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6

m@←[0m←[37;1;40;6m#←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m

←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m

@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;

40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6mG←[0m←[37;2;40;6mK←[0m←[37;1;40;6mS←[0m←[

37;2;40;6mf←[0m←[37;2;40;6m$←[0m←[37;2;40;6mt←[0m←[37;2;40;6m$←[0m←[37;2;40;6mt←
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

No sé si entendí mal sobre el funcionamiento del módulo pero ¿alguien podría explicarme?

Publicado: **2012-10-03 12:51 @577**

Lo dice el manual del módulo: está sacando la versión ASCII de la imagen usando secuencias de escape ANSI.

Publicado: **2012-10-05 18:57 @831**

¡Qué desgracia! Pensé que era para ASCII Art. Busqué en CPAN si había algún módulo y no encontré.

¿ vos conoces alguno ?

Publicado: **2012-10-05 19:57 @873**

Lo puedes hacer con el propio GD o con el Image::Magick (ejemplo: paso de imagen a tabla HTML).

Y Text::AAlib, por supuesto.

Foro - Perl en Español

Duda con Image::Caa

Duda con Image::Caa

Re: Duda con Image::Caa

Re: Duda con Image::Caa

Re: Duda con Image::Caa