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