Comment générer des séquences de caractères comme hexadécimal avec une base différente?

Question

je le script Perl suivant qui génère une chaîne basée sur un nombre:

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

Quand je lance ce que je reçois la sortie suivante:

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

Qu'est-ce que je manque? Reconnaissant pour toute aide!

Answer 1

Essayez plutôt, il est un peu plus clair que le script que vous avez et convertit correctement à une base arbitraire:

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

Voir aussi http://www.rosettacode.org/wiki/Number_base_conversion#Perl