
想要和utf8二进制互换的方法。
☎ '/usr/share/doc/libhtml-parser-perl/examples/htext' ~/.config/rox.sourceforge.net/ROX-Filer/Bookmarks.xml
似乎是可以?
反向不会。
xml -> utf8
utf8 -> xml 有些问题,思路正确。$str =~ s/&#x([[:xdigit:]]+);/chr(hex($1))/ge;
$str =~ s/[\x80-]/sprintf("&#x%x;", ord $&)/g;
是现成的,可有空再去看。HTML::Entities or Encode::encode
或者有其他直接的命令?系统带的?现成的?
--------------------------------
第2种情况:
%E5%AA%92%E4%BD%93 这样的,怎么搞。
$str =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg;
代码: 全选
☎ perl html2utf8.pl
%E5%BA%94%E7%94%A8/%E8%84%9A%E6%9C%AC
应用/脚本
$str =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;