需要html entity<->binary转换的。

eexpress · **发表于 :** 2008-04-03 16:24

文档 这样的是叫html entity吧，包括那些>的。不是的话，就改标题了。 :lol:

想要和utf8二进制互换的方法。

☎ '/usr/share/doc/libhtml-parser-perl/examples/htext' ~/.config/rox.sourceforge.net/ROX-Filer/Bookmarks.xml
似乎是可以？
反向不会。

xml -> utf8

引用:

$str =~ s/&#x([[:xdigit:]]+);/chr(hex($1))/ge;

utf8 -> xml 有些问题，思路正确。

引用:

$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;

yaoms · **发表于 :** 2008-04-03 16:25

>属于预定义实体

zhan · **发表于 :** 2008-04-03 16:26

urlencode 和 urldecode 什么的

自己去找脚本

yaoms · **发表于 :** 2008-04-03 16:27

第二种情况 python和php里都有函数实现

eexpress · **发表于 :** 2008-04-03 16:28

urlencode / urldecode in Perl

If you are looking for PHP's urlencode/urldecode equivalent in Perl, you won't find any. But here's what you can do:

Encode:
$str =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;

Decode:
$str =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg;

测试

hliang0813 · **发表于 :** 2008-04-12 20:24

如果是PHP中可以用mb_convert_encoding函数的

代码：
<?php
$str = "这是汉字";
$encoded_str = mb_convert_encoding($str, 'HTML-ENTITIES', "UTF-8");
echo $encoded_str;
?>

需要html entity<->binary转换的。

在线用户