duda expresion regular

[AlterElt]

buenas!

tengo una expresin regular que es la siguiente:

(01|1*)0*

Esta expresión regular me acepta palabras como:

100
10000
010000
01000000
0100000000
010000000000

Lo que quisiera hacer ahora es que NO me aceptara palabras como estas:

010
01000
0100000
010000000
01000000000

Es decir, las que tienen un número impar de carácteres.

Sabéis como puedo hacer esto?

Saludos

[jferrero]

¿Cómo que impares? En los primeros ejemplos hay algunos que tienen un número impar de caracteres...

Falta algo más de precisión...

Si, por ejemplo, queremos que el número de ceros que siguen al uno sea par, entonces podemos tener una expresión regular como la siguiente:

Código Perl:

#!/usr/bin/perl
use 5.010;
 
my @test_ok = qw(
    100
    10000
    010000
    01000000
    0100000000
    010000000000
);
 
my @test_nook = qw(
    10
    010
    01000
    0100000
    010000000
    01000000000
);
 
my $regexp = qr/^0?1(0*)\1$/;
 
for (@test_ok) {
    unless (/$regexp/) {
        say "Falló $regexp con prueba positiva de $_";
    }
}
 
for (@test_nook) {
    if (/$regexp/) {
        say "Falló $regexp con prueba negativa de $_";
    }
}
 

El programa no debe generar nada, indicando que la expresión regular ha cazado todas las combinaciones que nos interesan, y descartado las demás.

La expresión regular (^0?1(0*)\1$) funciona así: desde el principio (^) al final ($), buscamos un texto que comience quizás con 0 (0?), seguido de un '1', seguido de una cantidad de ceros, que capturamos ((0*)), y seguida por la misma cantidad de ceros capturados antes (\1). De esa manera, nos aseguramos que el número de ceros siempre sea par.