From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 4 Nov 2016 11:42:48 +0000 (+0000)
Subject: wip
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=5ee228254cd26de027c36ecdc54f5eee89b3b5fb;p=version-charset-test.git

wip
---

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