Foro - Perl en Español

por **J.C.M.Castillo** » 2006-01-15 06:49 @325

Desde un formulario paso un número en decimal a un CGI. Lo que deseo es que en este CGI el número aparezca en formato binario (01101001) con un print.
¿Cómo hago esta conversión?

use integer;
$entrada = 1023;
$salida  = '';
while ( $entrada > 0 ) {
    # En $salida vamos agregando los restos (0 o 1) de dividir
    # la $entrada entre 2.
    # Esto es lo mismo que extraer el último bit de $entrada.
    $salida   = ($entrada % 2) . $salida;
 
    # Como ya está analizado el bit menos significativo, reducimos
    # el valor de $entrada para la siguiente vuelta del bucle.
    # Esto es lo mismo que desplazar el número binario una
    # posición a la derecha.
    $entrada /= 2;
}
print $salida;
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

O puedes hacer que sea el propio sistema el que haga las cuentas por ti:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$entrada = 1023;
printf("%016b\n", $entrada);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Lo que estamos haciendo en la línea de arriba es pintar (printf) un número binario (%b) con 16 dígitos, con relleno de ceros (0) por la izquierda.

por **J.C.M.Castillo** » 2006-01-15 13:18 @596

Perfecto. Esto es lo que buscaba. Aunque me gusta más la segunda forma, la primera es muy interesante.

Muchas gracias

Foro - Perl en Español

Mostrar número en binario

Mostrar número en binario

Publicidad

Re: Mostrar número en binario

¿Quién está conectado?