Ver Tema

toxperl · 2012-01-14 14:41 @653

Estimados: ¿cómo puedo, en Perl, comprobar que una cadena de números solo tiene ceros y unos, es decir, solo del tipo 1000111?

Si encuentro 100300 tiene que mandar un mensaje indicando que no es binario.

creating021 · 2012-01-14 15:57 @706

Se puede hacer con un bucle que recorra la cadena y mire que cada carácter sea un 1 o un 0.

Ejemplo:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

my $cadena = "010012";
for (my $i = 0; $i < length $cadena; $i++) {
    my $caracter = substr $cadena, $i, 1;
    if ($caracter ne "0" and $caracter ne "1") {
        die "Error: bla bla bla\n";
    }
}

explorer · 2012-01-14 17:42 @779

Obviamente, también podemos usar el método de las expresiones regulares...

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

my $cadena = "010012";
 
if ($cadena =~ /^[01]+$/) {
    print "Sí es binaria\n";
}
else {
    print "No es binaria\n";
}

La expresión regular quiere decir: busca, de principio (^) a fin ($), una ristra de uno o más (+) dígitos '0' y/o '1'.

toxperl · 2012-01-14 18:12 @800

Muchas gracias, estimado

Publicidad

Socializa