[Perl]转换十进制为其他任意进制

很简单啦~

#!/usr/bin/perl -w
$out="";

print("Change 10 format number to-->? ");
$format=<STDIN>;
chomp $format;
print("input 10 format number:");
$_=<STDIN>;
chomp $_;
while ($_>0) {
                $mo=$_%$format;
                $_=($_-$mo)/$format;
                $out=$mo . $out;
}
print("$out ");