Cómo convertir entre números binarios y decimales usando perl

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