wip

diff --git a/.gitignore b/.gitignore
new file mode 100644 (file)
index 0000000..b25c15b
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1 @@
+*~

diff --git a/generate b/generate
index c429cf115ee43943b3d928f3a69bb4b5e370519f..86c43ffc7667e15f99f35952be6caa163840fb44 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 $!;
     }
 }