How do I convert decimal numbers to binary in Perl?

Question

I am trying to make a program that converts decimal numbers or text into binary numbers in perl. The program asks for user input of a character or string , and then prints out the result to the console. How do I do this? My code I have been working on is below, but i cannot seem to fix it.

print "Enter a number to convert: ";
chomp($decimal = <STDIN>);
print "\nConverting $number to binary...\n";
$remainder = $decimal%2;
while($decimal > 0)
{
    $decimal/2;
    print $remainder;
}

Answer 1

$decimal/2; isn't affecting $decimal

You probably want $decimal /= 2; or if you want to be cool, then $decimal >>= 1;

But really, really, you probably just want:

printf "%b\n", $decimal;

Answer 2

There are a few methods to convert from decimal to binary listed in perlfaq4 (How do I convert between numeric representations/bases/radixes?).

sprintf is a good choice.

Answer 3

I have these aliases in my .bash_profile for quick conversions on the command line:

alias d2h="perl -e 'printf qq|%X\n|, int( shift )'"
alias d2o="perl -e 'printf qq|%o\n|, int( shift )'"
alias d2b="perl -e 'printf qq|%b\n|, int( shift )'"
alias h2d="perl -e 'printf qq|%d\n|, hex( shift )'"
alias h2o="perl -e 'printf qq|%o\n|, hex( shift )'"
alias h2b="perl -e 'printf qq|%b\n|, hex( shift )'"
alias o2h="perl -e 'printf qq|%X\n|, oct( shift )'"
alias o2d="perl -e 'printf qq|%d\n|, oct( shift )'"
alias o2b="perl -e 'printf qq|%b\n|, oct( shift )'"