[Cascavel-pm] OCR

[Rafael Magalhães]

Nelson,

Obrigado pela ajuda, mas eu já havia tentado essa opção e quando uso o
código que você passou, retorna o seguinte erro:

"missing tesseract? at C:/Perl/site/lib/Image/OCR/Tesseract.pm line 50."

O que poderia ser?


Em 20/06/07, Nelson Ferraz <nferraz em gmail.com> escreveu:
>
> Dá uma olhada no Tesseract, um programa de OCR desenvolvido pela HP,
> adquirido pelo Google, e com o código aberto.
>
> "The Tesseract OCR engine was one of the top 3 engines in the 1995
> UNLV Accuracy test. Since then it has had little work done on it, but
> it is probably one of the most accurate open source OCR engines
> available. The source code will read a binary, grey or color image and
> output text. A tiff reader is built in that will read uncompressed
> TIFF images, or libtiff can be added to read compressed images."
>
> http://code.google.com/p/tesseract-ocr/
>
> Já tem módulo disponível em Perl: Image::OCR::Tesseract
>
> A utilização é tão simples quanto:
>
>        use Image::OCR::Tesseract 'get_ocr';
>
>        my $image = './hi.jpg';
>
>        my $text = get_ocr($image);
>
> []s
>
> Nelson
>
>
> Em 20/06/07, Rafael Magalhães<rafaelmagalhaes em gmail.com> escreveu:
> > Fernando,
> >
> > Você tem razão, mas quando não for reconhecido, o aviso será emitido ao
> > porteiro.
> >
> >
> > Em 20/06/07, fernandolouis em terra.com.br <fernandolouis em terra.com.br>
> > escreveu:
> > >
> > >  E se o carro entrar meio de "lado"... ou a placa estiver suja...
> > >
> > > cuide com esse detalhes...
> > >
> > > []s
> > > Fernando
> > >
> > >  ----- Original Message -----
> > > *From:* Rafael Magalhães <rafaelmagalhaes em gmail.com>
> > > *To:* cascavel-pm em pm.org
> > > *Sent:* Wednesday, June 20, 2007 3:53 PM
> > > *Subject:* [Cascavel-pm] OCR
> > >
> > >
> > > Boa tarde,
> > >
> > > Sou novo na lista, e depois de alguns anos estudando outras linguagens
> > > (ASP, PHP, Java e .NET), encontrei um problema e por incentivo de um
> amigo
> > > que é membro aqui da lista, resolvi voltar a estudar Perl.
> > >
> > > Estou fazendo um trabalho na faculdade e o nosso objeto de estudo é
> uma
> > > rede de estacionamentos que pretende modernizar a entrada e saída de
> seus
> > > clientes que pagam mensalmente. Basicamente teriamos uma camera
> > posicionada,
> > > de forma que foque na placa do veículo e quando chegar até a cancela,
> > > registre uma foto e o sistema irá ler o numero da placa e verificar no
> > banco
> > > de dados se o cliente está em dias com as mensalidades, caso ele
> esteja,
> > > libera a entrada / saída, caso contrário emite um aviso ao sistema
> para
> > > lembrar ao cliente sobre o pagamento.
> > >
> > > Pensei em desenvolver com Java, existe umas bibliotecas pra isso, mas
> só
> > > conheço bibliotecas pagas e como é um projeto acadêmico, preciso de
> algo
> > > free e que funcione de verdade.
> > >
> > > Bem, voltei a estudar Perl e instalei o modulo "OCR::PerfectCR",
> encontrei
> > > no CPAN. Infelizmente não encontrei muita documentação sobre ele e o
> > máximo
> > > que consegui foi executar o unico exemplo, que pegou a foto da placa
> que
> > > testei no exemplo, extraiu todos os caracteres e salvou uma imagem com
> > cada
> > > um dos caracteres.
> > >
> > > O que quero é conseguir pegar esse texto e armazenar em uma variável
> para
> > > que eu possa passar como parametro e checar em meu banco de dados, a
> > > situação daquele veículo.
> > >
> > > O código abaixo é o que eu usei do exemplo do CPAN:
> > >
> > > ___________________________________________________
> > > #!/usr/bin/perl -w
> > >
> > > use OCR::PerfectCR;
> > > use GD;
> > >
> > > my $recognizer = OCR::PerfectCR->new;
> > > $recognizer->load_charmap_file("charmap");
> > > my $image = GD::Image->new("placa.jpg") or die "Can't open example.png
> :
> > > $!";
> > > my $string = $recognizer->recognize($image);
> > > $recognizer->save_charmap_file("charmap");
> > > ___________________________________________________
> > >
> > > Será que alguem pode me ajudar a resolver este problema? Um exemplo
> que eu
> > > consiga capturar os caracteres na minha variável?
> > >
> > > Fico grato pela atenção de todos,
> > >
> > >
> > > Atenciosamente,
> > > Rafael Magalhães
> > >
> > > ------------------------------
> > >
> > > _______________________________________________
> > > Cascavel-pm mailing list
> > > Cascavel-pm em pm.org
> > > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > >
> > >
> > > _______________________________________________
> > > Cascavel-pm mailing list
> > > Cascavel-pm em pm.org
> > > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > >
> >
>
>
> --
> Nelson Ferraz
>
> Free Software Foundation Associate Member #3203
> Projeto Software Livre Brasil (www.softwarelivre.org.br)
> Sociedade Perl do Brasil (www.perl.org.br)
> Rede Livre de Compartilhamento de Cultura Digital
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070621/72b942af/attachment.html