如何在Perl中将十进制数转换为二进制数？

Question

我想制作一个程序，将十进制数字或文本转换成Perl中的二进制数字。该程序要求用户输入一个字符或字符串，然后将结果打印到控制台。我该怎么做呢？我一直在研究的代码是在下面，但我似乎无法修复它。

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;不影响$decimal

你可能想$decimal /= 2;，或者如果你想成为冷，再$decimal >>= 1;

不过说真的，真的，你可能只是想：

printf "%b\n", $decimal;

Answer 2

有几种方法可以将十进制转换为二进制列于perlfaq4 （How do I convert between numeric representations/bases/radixes?）。

sprintf是一个不错的选择。

Answer 3

我在这些别名的.bash_profile在命令行上快速转换：

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)'" 

Answer 4

alias b2d="perl -e 'printf qq|%d\n|, unpack("N", pack("B32", substr("0" x 32 . 1101 , -32)))'" 
alias b2h="perl -e 'printf qq|%X\n|, unpack("N", pack("B32", substr("0" x 32 . 1101 , -32)))'" 
alias b2o="perl -e 'printf qq|%o\n|, unpack("N", pack("B32", substr("0" x 32 . 1101 , -32)))'" 

Answer 5

#!/usr/bin/perl 
use strict; 
print "Enter a number to convert: "; 
chomp(my $decimal = <STDIN>); 

print "\nConverting $decimal to binary...\n"; 

my @array; 
my $num; 

while($decimal >= 1) 
{ 
    if($decimal == 1) { 

     $num .= 1; 
     last; 
    } 

    my $remainder = $decimal%2; 
    $num .= $remainder; 
    $decimal = $decimal/2; 
} 

print $num."\n"; 

Answer 6

尝试此十进制到二进制的转换：

my $bin = sprintf ("%b", $dec); 

要得到每一位：

my @bits = split(//, $bin); 

然后您可以操纵每一位，更改MSB索引等等。

Answer 7

请尝试下面的代码。它会工作。

#!/usr/bin/perl 

use strict; 

print "Enter a decimal number \n"; 

my $dec_number = <STDIN>; 
chomp($dec_number); 

my $reminder; 
my $result; 

while ($dec_number >= 1) 
{ 
    $reminder = $dec_number % 2;  #Modulo division to get remainder 
    $result = $reminder . $result;  #Concatenation of two numbers 
    $dec_number = $dec_number/2;  #New Value of decimal number to do next set of above operations 
} 

print "Binary number Output = ", $result, "\n";