初学Perl,正拜读大神的 高阶Perl

到手第一个小脚本：

算法不复杂主要是： n =2k +b; k是尽可能小的数，b 是1 或者0；任意一个自然数都可以用这个公式表示,通过递归的算法，可以把任意一个自然数转换成二进制数：

    

    

#!/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 = <STDIN>);
$answer = binary($line);
print "answer is $answer \n";