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

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";
}

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

0
1
2
3
4
...
z
01
01
21
21
41
41
61
61
81
91
91
b1
b1
d1
d1

我错过了什么？感谢您的帮助！

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