Шестнадцатеричные переменные в шаблонах замещения

Question

Файл, который я получаю, заполнен плохо отформатированными кодами UTF-8, такими как <0308> и т. Д. Я могу правильно их идентифицировать, но я хочу заменить их на настоящую букву UTF-8, предпочтительно на регулярное выражение. Я пробовал десятки таких регулярных выражений:

s/<[0-9a-fA-F]{2,4}/\x{$1}/g
s/<[0-9a-fA-F]{2,4}/\N{U+$1}/g

И так далее, но каждый раз он говорит мне, что $ не является действительным шестнадцатеричным символом (с чем я полностью согласен). Разве это не должно просто взять число в моем $1 и вставить его туда? Или Perl действительно ожидает, что я буду использовать \x{..} или \N{U+..} только с фиксированными значениями? Если это так, я должен был бы написать вручную преобразование для каждого возможного шестнадцатеричного значения - не очень полезно.

Answer 1

Во-первых, вам нужно использовать скобки, чтобы захватить что-то в вашем регулярном выражении;в противном случае $1 не будет установлен на что-либо.

chr + hex с eval поможет вам в этом:

Answer 2

Какую версию perl вы используете?Кажется, это работает нормально для меня на 5.10.1:

$ perl -E '$foo = "<0308>"; $foo =~ s/<[0-9a-fA-F]{2,4}/\N{U+$1}/g; say $foo'
Wide character in print at -e line 1.
�>

(С \x{$1} кажется, что цифры заменяются ничем, но я все еще не получаю сообщение об ошибке.)

Answer 3

Вам, вероятно, нужно использовать переключатель eval к ​​нему. Попробуйте /\x{$1}/eg или /"\x{$1}"/eg