#!/usr/bin/perl -w
use strict;
use GD;

my $file = $ARGV[0];
chomp($file);

GD::Image->trueColor(1);
my $image = newFromJpeg GD::Image($file);
(my $width, my $height) = $image->getBounds();

for my $i ( 0 .. $width-1 ) {
    for my $j (0 .. $height-1) {
        my $index = $image->getPixel($i,$j);
        if ($index != 16777215) { #Si el pixel no es blanco

...................... # No se como seguir...

my @x_no;
for my $i ( 0 .. $width-1 ) {
    for my $j (0 .. $height-1) {
        my $index = $image->getPixel($i,$j);
        if ($index != 16777215 && $i != $x_no[$#x_no]) {
            push (@x_no, $i);
        }
    }
}

#Comprobacion
foreach my $elemento(@x_no) {
    print "$elemento\n";
}

my @x_no = (9); #Le doy valor 9 inicial, porq sino me lanza un warning undef, no se si hay otra forma de solucionarlo
for my $i ( 0 .. $width-1 ) {
    for my $j (0 .. $height-1) {
        my $index = $image->getPixel($i,$j);
        if ($index != 16777215 && $i != $x_no[$#x_no]) {
            push (@x_no, $i);
        }
    }
}

shift(@x_no); #quito el elemento q era basura

my @coordenadas;
push(@coordenadas, $x_no[0]); #pongo el principio de la primera figura
for my $i (0 ..  $#x_no) {
    if (defined($x_no[$i+1]) && $x_no[$i]+1 < $x_no[$i+1]) { #Comparando diferencias entre las coordenadas, si se "alejan" 1 o mas esque hay una linea blanca por el medio
        push(@coordenadas, $x_no[$i], $x_no[$i+1]);
    }
}
push(@coordenadas, $x_no[$#x_no]); #pongo el final del ultimo caracter

#Compruebo.
foreach my $elemento (@coordenadas) {
    print "$elemento\n";
}

#!/usr/bin/perl
use strict;
use warnings;

use GD;
use constant LIMITE_COLOR => 0x04;

my $fichero_imagen = $ARGV[0] or die "Uso: $0 <imagen a procesar>\n";

my $gd_imagen = GD::Image->new($fichero_imagen);
my ($ancho,$alto) = $gd_imagen->getBounds();
print "Dimensiones: $ancho x $alto\n";

## Leemos la imagen, aplanándola, a una lista, representando cada una de las columnas.
## Un '1' es que sí había píxeles negros (figura)
## Un '0' es que no había
my $columnas;

## Para todas las columnas
for my $i ( 0 .. $ancho -1 ) {

    my $hay_pixeles_de_figura;     # Hay o no hay

    ## Para todas las filas de esa columna
    for my $j (0 .. $alto -1) {

        my  $color_pixel_paleta = $gd_imagen->getPixel($i,$j);
        my ($color_pixel_rojo, $color_pixel_verde, $color_pixel_azul) = $gd_imagen->rgb($color_pixel_paleta);
        #my  $color_pixel = uc sprintf "%02x%02x%02x", $color_pixel_rojo, $color_pixel_verde, $color_pixel_azul;
        #print ">$i;$j: $color_pixel_paleta: ($color_pixel_rojo, $color_pixel_verde, $color_pixel_azul) $color_pixel\n";

        if (    $color_pixel_rojo  <= LIMITE_COLOR
            and $color_pixel_verde <= LIMITE_COLOR
            and $color_pixel_azul  <= LIMITE_COLOR
        ) {
            $hay_pixeles_de_figura = 1; # ponemos la bandera a 1
            last;                       # no necesitamos mirar más
        }
    }

    ## Guardamos el resultado de esa columna, como un dígito
    $columnas .= ($hay_pixeles_de_figura) ? 1 : 0;
}

print "$columnas\n";

$columnas .= 0;    # Para ayudar a la segunda regex, en caso de
                   # que exista una figura en la última columna

## Ayudas visuales
for my $x ( 0 .. length($columnas) -1) {
    print int $x++ / 10;
}
print "\n";
for my $x ( 0 .. length($columnas) -1) {
    print $x++ % 10;
}
print "\n";

## Ahora averiguamos cuántas figuras hay
my $numero_figuras = () = $columnas =~ /1+/g;   # Buscamos cuántos bloques de '1' hay
print "Hay $numero_figuras figuras\n";

## Y ahora hay que saber en qué posiciones empiezan y terminan
if ($numero_figuras) {

    ## Lo que hacemos es buscar la combinación '01' para saber el comienzo
    while ( $columnas =~ m/(^|0)1/g ) {
        print "Posición inicial: ";
        print pos($columnas)-1;
        print "\n";
    }

    ## y la combinación '10' para saber el final de cada figura
    while ( $columnas =~ m/10/g ) {
        print "Posición final: ";
        print pos($columnas)-2;
        print "\n";
    }
}

__END__

#!/usr/bin/perl

use GD;

use strict;
use warnings;
use diagnostics;

## Inicialización
my $fichero_imagen = $ARGV[0] or die "Uso: $0 <imagen a procesar>\n";
my $gd_imagen = GD::Image->new($fichero_imagen);
my ($ancho,$alto) = $gd_imagen->getBounds();
print "Dimensiones: $ancho x $alto\n";

## Contadores e indicadores
my $numero_figuras;
my $estamos_en_figura;
my $hay_pixeles_de_figura;

## Proceso
$estamos_en_figura = 0;
for my $i (0 .. $ancho-1) {

    $hay_pixeles_de_figura = 0;
    for my $j (0 .. $alto -1) {

        if ($gd_imagen->getPixel($i,$j) == 0) {        # Si el pixel es el negro
            $hay_pixeles_de_figura++;
        }
    }

    if ($hay_pixeles_de_figura) {
        if (!$estamos_en_figura) {
            $estamos_en_figura = 1;
            print "Inicio: $i\n";
        }
    }
    else {
        if ($estamos_en_figura) {
            $estamos_en_figura = 0;
            print "Final : ", $i-1, "\n";
            $numero_figuras++;
        }
    }
}

if ($estamos_en_figura) {
    print "Final : ", $ancho-1, "\n";
    $numero_figuras++;
}

print "Hay $numero_figuras figuras\n";

__END__