Как генерировать последовательности символов, такие как шестнадцатеричные с другой базой?

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