-
- Publicidad
Buscar texto en imagen
10 mensajes
• Página 1 de 1
Buscar texto en imagen
por 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?
- teco000
- Perlero nuevo
- Mensajes: 67
- Registrado: 2008-05-29 15:22 @682
- Ubicación: Guatemala
Publicidad
por 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
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
-
kidd - Creador de Perl en Español
- Mensajes: 1166
- Registrado: 2003-10-15 16:52 @744
- Ubicación: México
por 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
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);
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
- Mensajes: 67
- Registrado: 2008-05-29 15:22 @682
- Ubicación: Guatemala
por 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
-
explorer - Administrador
- Mensajes: 14486
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por 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.
Claro, eso depende del formato que quieras usar.
Expect the worst, is it the least you can do?
-
creating021 - Perlero frecuente
- Mensajes: 595
- Registrado: 2006-02-23 16:17 @720
- Ubicación: Frente al monitor
10 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados