From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 4 Nov 2016 11:29:19 +0000 (+0000)
Subject: wip
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=version-charset-test.git;a=commitdiff_plain;h=86d0c7d093d72e729183b7ccd80d0158446531b6;ds=sidebyside

wip
---

86d0c7d093d72e729183b7ccd80d0158446531b6
diff --git a/generate b/generate
new file mode 100755
index 0000000..c429cf1
--- /dev/null
+++ b/generate
@@ -0,0 +1,12 @@
+#!/usr/bin/perl -w
+use strict;
+my $charset = '.+-:~09mAZ';
+
+foreach my $len (0..10) {
+    foreach (my $val=0; ; $val++) {
+	my $s = sprintf "%0${len}d", $val;
+	last if length $s > $len;
+	$s =~ y/0-9/$charset/;
+	print $s,"\n" or die $!;
+    }
+}