8 say '# automatically generated by tools/mkcharver';
11 while (my $line = readline) {
13 \A (?<start> [0-9A-F]+)
14 (?: \.\. (?<end> [0-9A-F]+) )?
15 \h+ ; \h+ (?<major> [0-9]+) \. (?<minor> [0-9])
18 my $start = hex $+{start};
19 my $end = defined $+{end} ? hex $+{end} : $start;
20 my $version = $+{major} . $+{minor};
21 say "(map {\$_ => $version} $start .. $end),";
30 mkcharver - Create Perl include of Unicode character versions
34 mkcharver DerivedAge.txt >unicode-age.inc.pl
38 Mischa POSLAWSKY <perl@shiar.org>
42 Licensed under the GNU Affero General Public License version 3.