Question

我有以下Perl脚本，它根据数字生成一个字符串：

my @chars;
push @chars, map(chr, 48..57), map(chr, 97..122);
my $c = $#chars+1;

for (0..50) {
    my $string;
    my $l = $_ / $c;
    my $i = int $l;
    my $r = ($l - $i) * $c;
    $string .= $chars[$r];
    while ($i > 0) {
        $l = $i / $c;
        $i = int $l;
        $r = ($l - $i) * $c;
        $string .= $chars[$r];
    }
    print "$string\n";
}

当我运行时，我得到以下输出：

我错过了什么？感谢任何帮助！

Answer 1

尝试使用它，它比你拥有的脚本更清晰，并且正确地转换为任意基础：

my @chars;
push @chars, map(chr, 48..57), map(chr, 97..122);

my $base = @chars;

for my $num (0..100) {
    my $string = '';

    while ($num >= $base) {
        my $r = $num % $base;
        $string .= $chars[$r];

        $num = int($num / $base);
    }
    $string .= $chars[$num];
    print reverse($string) . "\n";
}

Answer 2

另见http://www.rosettacode.org/wiki/Number_base_conversion#Perl

如何生成具有不同基数的十六进制字符序列？

2 个答案: