generate

   1 #!/usr/bin/perl -w
   2 use strict;
   3
   4 foreach my $len (0..7) {
   5     print STDERR "generate len $len\n";
   6     foreach (my $val=0; ; $val++) {
   7         my $s = sprintf "%0${len}d", $val;
   8         last if length $s > $len;
   9         $s =~ y/0-9/.+:~09mAZ-/;
  10         print $s,"\n" or die $!;
  11     }
  12 }