Foro - Perl en Español

Hola, buenas tardes.

Tengo el siguiente problema, el cual me pregunto si con Perl puedo solucionarlo.



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)


+ lo siguiente debería ser eliminar los "puntos" o los 1 que se encuentren "solos", es decir, quitar el ruido de la imagen quedando

+ y volver a crear otra imagen con estos datos y quedando una imagen limpia

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.

Yo usaría la utilidad convert, del paquete ImageMagick.

En los foros de esta utilidad hay ejemplos de cómo hacer eso. Por ejemplo, Removing noise from scanned text document y Cleaning up noise around text Esta última, usando la opción -morphology close.

Estas herramientas son algo complicadas. Me refiero a la búsqueda de las opciones correctas. Pero una vez que las tienes, procesa las imágenes a toda velocidad. Y desde Perl, ni siquiera tienes que instalar un módulo: te vale con ejecutar el comando externo con system() o qx().

Apuesto a que el programa en PHP usa la biblioteca de ImageMagick para hacer su trabajo. Si lo quieres hacer en Perl, recuerda que existe PerlMagick. Pero para usarlo invertirás el mismo tiempo que para aprender a manejar las herramientas de ImageMagick (básicamente, porque se usan de la misma manera).