HTML::Entities 编码或解码 HTML 实体的字符串

<pre name="code" class="html"><pre name="code" class="python">HTML::Entities  编码或解码 HTML 实体的字符串

 use HTML::Entities;

 $a = "Våre norske tegn bør æres";
 decode_entities($a);
 encode_entities($a, "200-377");
 
 比如, this:
 
  $input = "vis-à-vis Beyoncé's naïve
papier-mâché résumé";
 print encode_entities($input), "
"
 
 
 描述:
 该模块处理字符串的encoding和decoding 使用HTML 字符实例,
 
 模块提供下面的功能:
 
 decode_entities( $string, ... )
 
 本程序 替换找到的HTML实体在$string 使用相应的Unicode 字符,
 
 未被识别的实体被单独留下
 
 
 如果多个字符串被提供作为参数, 他们是每个单独的解码和相同数量的字符串被返回
 
 
 例子：
 [root@dr-mysql01 ~]# cat a1.pl 
use  LWP::UserAgent;
use HTML::Entities;
 
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
$ua->agent("Mozilla/8.0");


my $response = $ua->get('http://192.168.33.9:8088/DEVOPS/index.php/Codequery/search_ip?ip=192.168.32.15');




if ($response->is_success) {
 $rr= $response->decoded_content;  # or whatever
 print "$rr is $rr
";
}
else {
 die $response->status_line;
};




$out=decode_entities($rr);
print "$out is $out
";
[root@dr-mysql01 ~]# perl a1.pl 
Wide character in print at a1.pl line 14.
$rr is ?<pre class='xdebug-var-dump' dir='ltr'><small>string</small> <font color='#cc0000'>'[{"sn":"44","ip":"192.168.32.15","info":"redis","env":"env-zjdev"}]'</font> <i>(length=67)</i>
</pre>
Wide character in print at a1.pl line 22.
$out is ?<pre class='xdebug-var-dump' dir='ltr'><small>string</small> <font color='#cc0000'>'[{"sn":"44","ip":"192.168.32.15","info":"redis","env":"env-zjdev"}]'</font> <i>(length=67)</i>
</pre>