chiark / gitweb /
86c43ffc7667e15f99f35952be6caa163840fb44
[version-charset-test.git] / generate
1 #!/usr/bin/perl -w
2 use strict;
3
4 foreach my $len (0..7) {
5     print STDERR "generate len $len\n";
6     foreach (my $val=0; ; $val++) {
7         my $s = sprintf "%0${len}d", $val;
8         last if length $s > $len;
9         $s =~ y/0-9/.+:~09mAZ-/;
10         print $s,"\n" or die $!;
11     }
12 }