perl - Perlでの10進数から16進数への変換（–から–）

Question

多くの数値エンティティを含むHTMLファイルがあります。10進数から16進数に変更したい。例：（–ダッシュ）をに変更したい–。

Perlを使用してこれをどのように行うのですか？

次のコードを使用してみました。

use String::HexConvert ':all';
my $text = "this is text&#8211;example";

print ascii_to_hex($text);

すべての文字を変換します。変換したい–だけです。

score 3 · Accepted Answer

これでうまくいきます：

$html =~ s/&#([0-9]+);/ sprintf("&#x%x;", $1) /eg;

（\d一致する文字が多すぎます。）

score 0 · Accepted Answer

0

これを試して：

$text =~ s/\&#(\d+);/"&#x".sprintf("%x",$1).";"/eg

于 2013-01-31T06:30:27.207 に答える

score 0 · Accepted Answer

16進数から10進数に変換するには：

$html =~ s/&#(x[0-9A-Fa-f]+);/ sprintf("&#%d;", hex($1)) /eg;

3 に答える 3