论坛 › Perl › Perl 脚本之1 ：十进制转换成二进制

gqinvs 发表于 2018-8-30 12:50:33

Perl 脚本之1 ：十进制转换成二进制

#!/usr/bin/perl　　
#author: peipei
　　
#date:2014_06_06
　　
sub binary{
　　
    my $n = @_;
　　
    return $n == 0 || $n == 1;
　　
    my $k =int($n/2);
　　
    my $b = $n%2;
　　
    my $E = binary($k);
　　
    retunr $E . $b;
　　
}
　　
print "Pls input a number: \n";
　　
chomp($line = );
　　
$answer = binary($line);
　　
print "answer is $answer \n";

查看完整版本: Perl 脚本之1 ：十进制转换成二进制