Como converter entre números binários e decimais usando Perl

Este artigo listará poucos exemplos sobre como converter entre números binários e decimais com Perl.

Binário a decimal

Primeiro, vamos mostrar um exemplo de base sobre como converter de binário para decimal:

#!/usr/bin/perl $ decimal_number = 0b1000; imprimir $ decimal_number; 

Execução:

# ./converter.PL 8 

Aqui está um outro método alternativo. Nesse caso, converteremos o número binário 1000 para decimal:

#!/usr/bin/perl $ binary_number = 1010; $ decimal_number = out ("0b".$ binary_number); imprimir $ decimal_number; 

Execução:

# ./converter.PL 10 

Decimal a binário

Abaixo está um exemplo sobre como converter um número decimal em binário neste caso, o script Perl converterá um número decimal 16:

#!/usr/bin/perl $ decimal_number = 16; $ binary_number = sprintf ("%b", $ decimal_number); imprimir $ binary_number; 

Execução:

# ./converter.PL 10000