chiark / gitweb /
wip
[version-charset-test.git] / generate
index c429cf1..86c43ff 100755 (executable)
--- a/generate
+++ b/generate
@@ -1,12 +1,12 @@
 #!/usr/bin/perl -w
 use strict;
-my $charset = '.+-:~09mAZ';
 
-foreach my $len (0..10) {
+foreach my $len (0..7) {
+    print STDERR "generate len $len\n";
     foreach (my $val=0; ; $val++) {
        my $s = sprintf "%0${len}d", $val;
        last if length $s > $len;
-       $s =~ y/0-9/$charset/;
+       $s =~ y/0-9/.+:~09mAZ-/;
        print $s,"\n" or die $!;
     }
 }