RELEASE/1.0RELEASE/1.1RELEASE/1.2debug-cidebug-ci-sanitisersfaster-cavernloglog-selectstereostereo-2025walls-datawalls-data-hanging-as-warningwarn-only-for-hanging-survey
| Line | |
|---|
| 1 | #!/usr/bin/perl -w |
|---|
| 2 | require 5.004; |
|---|
| 3 | use strict; |
|---|
| 4 | |
|---|
| 5 | use integer; |
|---|
| 6 | |
|---|
| 7 | my @ent = (); |
|---|
| 8 | for (128..255) { |
|---|
| 9 | $ent[$_] = "#$_"; |
|---|
| 10 | } |
|---|
| 11 | |
|---|
| 12 | open ENT, "named-entities.txt" or die $!; |
|---|
| 13 | while (<ENT>) { |
|---|
| 14 | my ($e, $v) = /^(\w+),(\d+)/; |
|---|
| 15 | $ent[$v] = $e; |
|---|
| 16 | } |
|---|
| 17 | close ENT; |
|---|
| 18 | |
|---|
| 19 | while (<>) { |
|---|
| 20 | if (/^\s*#/) { |
|---|
| 21 | print; |
|---|
| 22 | next; |
|---|
| 23 | } |
|---|
| 24 | |
|---|
| 25 | my ($pre, $msg) = /^([-\w,]+:\s*\d+\s+)(.*)/; |
|---|
| 26 | |
|---|
| 27 | $msg =~ s/([\x80-\xff])/"&".$ent[ord($1)].";"/ge; |
|---|
| 28 | |
|---|
| 29 | $msg =~ s/'\%s'/`%s'/g; |
|---|
| 30 | $msg =~ s/^([^`']* )\%s'/$1`%s'/g; |
|---|
| 31 | |
|---|
| 32 | print "$pre$msg\n"; |
|---|
| 33 | } |
|---|
Note: See
TracBrowser
for help on using the repository browser.
