Hola, buenas tardes.
Tengo el siguiente problema, el cual me pregunto si con Perl puedo solucionarlo.
Using text Syntax Highlighting
demo.jpg/png tamaño 95x33 píxeles | FONDO BLANCO Letra HOLA y (. ) COLOR negro
-------------------------
| . . . . . . |
| HOLA . . . |
| . . |
| . . |
-------------------------
Coloreado en 0.000 segundos, usando
GeSHi 1.0.8.4
ESTA Es una imagen en cualquier formato jpg o png.
El procedimiento que quiero realizar es:
+ obtener el tipo de archivo
+ las dimensiones alto y ancho
+ LEER píxel a píxel
for(my $i=0 ; $i<= $demo.alto ; $i++)
for(my $j=0 ; $j<= $demo.ancho ; $j++)
+ mostrar el código de cada píxel, su código en hexadecimal o entero u otro valor el cual me permita Identificar al color que corresponde cada píxel. En esta IMAGEN se asume que solo deberá tener 2 colores: blanco y negro.
Si pudiésemos leer la imagen y obtener sus códigos y mostrarlos quedaría algo así: ejemplo (1 negro, 0 blanco)
Using text Syntax Highlighting
000000000000000000
001000000000100000
000010000000000000
000001111111111000
000000000000000000
000100000000010000
001000000000001000
010000000000000100
Coloreado en 0.000 segundos, usando
GeSHi 1.0.8.4
+ lo siguiente debería ser eliminar los "puntos" o los 1 que se encuentren "solos", es decir, quitar el ruido de la imagen quedando
Using text Syntax Highlighting
000000000000000000
000000000000000000
000000000000000000
000001111111111000
000000000000000000
000000000000000000
000000000000000000
000000000000000000
Coloreado en 0.000 segundos, usando
GeSHi 1.0.8.4
+ y volver a crear otra imagen con estos datos y quedando una imagen limpia
Using text Syntax Highlighting
-------------------------
| |
| HOLA |
| |
| |
-------------------------
Coloreado en 0.000 segundos, usando
GeSHi 1.0.8.4
Y con esto se finalizaría. Con PHP he visto que esto es posible.
Me pregunto si Perl me ofrece la posibilidad de resolver este problema.
Y si alguien puede darme algunos ejemplos, por favor.
Saludos.