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

初学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";