Este artículo enumerará algunos ejemplos sobre cómo convertir entre números binarios y decimales con Perl.
Binario a decimal
Primero mostremos un ejemplo de basación sobre cómo convertir de binario a decimal:
#!/usr/bin/perl $ decimal_number = 0b1000; imprimir $ decimal_number;
Ejecución:
# ./convertir.PL 8
Aquí hay otro método alternativo. En este caso convertiremos el número binario 1000
a decimal:
#!/usr/bin/perl $ binary_number = 1010; $ decimal_number = oct ("0b".$ binary_number); imprimir $ decimal_number;
Ejecución:
# ./convertir.PL 10
Decimal a binario
A continuación se muestra un ejemplo sobre cómo convertir un número decimal en binario en este caso, el script Perl convertirá un número decimal dieciséis
:
#!/usr/bin/perl $ decimal_number = 16; $ binary_number = sprintf ("%b", $ decimal_number); imprimir $ binary_number;
Ejecución:
# ./convertir.PL 10000