package BOCR;
use strict;
use GD;
use constant {
                RED   => 44,
                GREEN => 18,
                BLUE  => 4,
};

my %c = ( 0 => '7:4,0:4' , 
          1 => '2:2,3:2' ,  
          2 => '7:9' ,  
          3 => '0:1,0:8' ,  
          4 => '5:2,6:9' ,  
          5 => '0:0,0:1' ,  
          6 => '3:4,0:4' , 
          7 => '7:0' , 
          8 => '2:4,3:4' , 
          9 => '7:4,7:7' , );


sub new {
    my $class = shift;
    my $self  = {   DEBUG  => 0,
                    NAME   => undef,
                    @_,
                };
    return bless $self, $class;
}

sub recognition {
    my $self = shift;
    unless ( defined $self->{ NAME } ){
        $self->{ NAME } = shift ;
    }
    
    my $count = 0;
    my $image = GD::Image->newFromJpeg( $self->{ NAME } );
    for ( my $x0 = 5; $x0 <= 41; $x0 += 9 )
    {
         print "\t\tНачало новой позиции цифры \n\n" if $self->{ DEBUG };
         foreach my $n ( sort keys %c )
         {
            print " Цифра : #$n\n\n" if $self->{ DEBUG };
            foreach ( split ',',$c{$n} )
            {
                my ( $x,$y ) = split ':'; 
                print "Координаты : x = $x y = $y ; " if $self->{ DEBUG };
                my ( $r,$g,$b ) = $image->rgb( $image->getPixel( $x+$x0,$y+5 ) );
                print "RGB : r = $r g = $g b = $b\n" if $self->{ DEBUG };
                if  ( ( RED>=$r )&&( GREEN>=$g )&&( $b=BLUE ) ){
                    $count++;
                    print "Совпадение #$count : цифра #$n ; координаты : x = $x y = $y \n" if $self->{ DEBUG };
                }
                if ( ( $count == 2 ) || ( $count == 1 ) && ( $n == 2 ) || ( $count == 1 ) && ( $n == 7 ) ){
                    $count = 0;
                    print "Найдена цифра : '$n' \n" if $self->{ DEBUG };
                    $self->{ NUMBER } .= $n;
                    last;
                }
            }
            $count = 0;
           print "\n" if $self->{ DEBUG };
         }
    }
    print "Результат : $self->{ NUMBER }\n" if $self->{ DEBUG };
    return $self->{ NUMBER };
}

1;

#!/usr/bin/perl -w

use strict;
use BOCR;

my $i = new BOCR(   DEBUG => 1, # можно и без отладки =]
                    NAME  => 'b.jpeg' );
print $i->recognition;

$ perl b.pl
                      Начало новой позиции цифры 

 Цифра : #0

Координаты : x = 7 y = 4 ; RGB : r = 236 g = 198 b = 68
Координаты : x = 0 y = 4 ; RGB : r = 28 g = 14 b = 4
Совпадение #1 : цифра #0 ; координаты : x = 0 y = 4 
.....
 Цифра : #6

Координаты : x = 3 y = 4 ; RGB : r = 36 g = 14 b = 4
Совпадение #1 : цифра #6 ; координаты : x = 3 y = 4 
Координаты : x = 0 y = 4 ; RGB : r = 28 g = 14 b = 4
Совпадение #2 : цифра #6 ; координаты : x = 0 y = 4 
Найдена цифра : '6' 
.....
Результат : 6099