[Cascavel-pm] OCR

[Luis Motta Campos]

On Jun 20, 2007, at 8:53 PM, Rafael Magalhães wrote:
> 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?

   Rafael, você tem o trabalho de faculdade mais do barbalho que eu  
já vi.
   Pode contar para a gente onde você estuda, e me dar contatos com o  
seu professor?
   Este, eu faço questão de mandar uma mensagem parabenizando!

   Um trabalho interessante, motivador e com uma veia prática muito boa!
   Visão computacional, num curso de graduação! Faz tempo que eu não  
vejo nada assim...

   Putamplexos!
--
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
Perl fanatic evangelist, and amateur {cook, photographer}