• Publicidad

Buscar texto en imagen

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Buscar texto en imagen

Notapor teco000 » 2008-07-14 12:34 @565

Saludos, con una molestia, necesito hacer un programa que busque texto dentro de una imagen tif, debido a que contamos con más de 2 millones de imágenes está difícil hacerlo a mano, ¿alguien sabe de alguna función o alguna manera de hacerlo en Perl? :shock:
teco000
Perlero nuevo
Perlero nuevo
 
Mensajes: 67
Registrado: 2008-05-29 15:22 @682
Ubicación: Guatemala

Publicidad

Notapor kidd » 2008-07-14 14:13 @634

Hola:

Lo quieres hacer es conocido como OCR. Aunque comúnmente es relacionado con algo que ha sido procesado por un scanner, básicamente es sacar texto de un archivo de imagen.

En Perl encontré algunos módulos que podrían servirte. Para empezar intentaría con OCR::PerfectCR.

Si no, hay otros módulos que podrías intentar:
http://search.cpan.org/search?query=OCR&mode=all


Saludos
Uriel Lizama Perl programmer fundador de Perl en Español
Perl Programming Language
Avatar de Usuario
kidd
Creador de Perl en Español
Creador de Perl en Español
 
Mensajes: 1166
Registrado: 2003-10-15 16:52 @744
Ubicación: México

Notapor teco000 » 2008-07-14 15:26 @685

Gracias kidd, voy a verlos.
teco000
Perlero nuevo
Perlero nuevo
 
Mensajes: 67
Registrado: 2008-05-29 15:22 @682
Ubicación: Guatemala

Notapor teco000 » 2008-07-17 16:41 @737

Hola, les mando el código de un simple programa que busca texto en una imagen escaneada, por si les sirve a alguien

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
#!/usr/bin/perl -w
use Image::OCR::Tesseract 'get_ocr';

my $dir=$ARGV[0];
my $texto=$ARGV[1];
my $image;
opendir(FD, $dir) or die ("Can't open ./ directory");
foreach $image (readdir(FD))
{

    $_ = $image;
    if (/gr7200710120253_B.tif/) {
        print "$image \n";
        $_ = get_ocr($dir.$image);
        print $_;      
        if ( /$texto/ ) {

            print"$image $text \n";
        }
    }
}
close(FD);
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
teco000
Perlero nuevo
Perlero nuevo
 
Mensajes: 67
Registrado: 2008-05-29 15:22 @682
Ubicación: Guatemala

Notapor explorer » 2008-07-17 17:16 @761

¿Es necesario hacer un bucle para decodificar un solo fichero? :-)
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor teco000 » 2008-07-17 17:20 @764

jajajaja, perdón, estaba probando y no lo quité
teco000
Perlero nuevo
Perlero nuevo
 
Mensajes: 67
Registrado: 2008-05-29 15:22 @682
Ubicación: Guatemala

Notapor kidd » 2008-07-17 19:43 @863

Impresionante las cosas que puedes hacer con Perl ¿no creen?
Uriel Lizama Perl programmer fundador de Perl en Español
Perl Programming Language
Avatar de Usuario
kidd
Creador de Perl en Español
Creador de Perl en Español
 
Mensajes: 1166
Registrado: 2003-10-15 16:52 @744
Ubicación: México

Notapor OzX » 2008-07-17 19:50 @868

Pero ¿existe algún módulo u algunos parámetros para poder leer pixel a pixel una imagen? ¿Para poder crear un OCR?

Por que he buscado y no he visto ningún manual que haga referencia a aquello.

¡Saludos!
OzX
Perlero nuevo
Perlero nuevo
 
Mensajes: 8
Registrado: 2008-07-14 18:15 @802

Notapor explorer » 2008-07-18 03:34 @190

Con el paquete PerlMagick (Image::Magick) sí que se puede saber el valor de cada pixel.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor creating021 » 2008-07-21 18:28 @811

Aparte de PerlMagick, se puede usar otros módulos (pure-perl) como Image::XPM para dicho trabajo ;)

Claro, eso depende del formato que quieras usar.
Expect the worst, is it the least you can do?
Avatar de Usuario
creating021
Perlero frecuente
Perlero frecuente
 
Mensajes: 595
Registrado: 2006-02-23 16:17 @720
Ubicación: Frente al monitor


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados