chiark / gitweb /
wip
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Fri, 4 Nov 2016 11:42:48 +0000 (11:42 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Fri, 4 Nov 2016 11:42:48 +0000 (11:42 +0000)
.gitignore [new file with mode: 0644]
generate

diff --git a/.gitignore b/.gitignore
new file mode 100644 (file)
index 0000000..b25c15b
--- /dev/null
@@ -0,0 +1 @@
+*~
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 $!;
     }
 }