perl里如何转义HTML代码？

你只需要简单的将<和>分别替换成＆lt和＆gt就行了。

$str=~s/</＆lt/g

$str=~s/>/＆gtg

注：因为百度对我的输入内容自动进行转换，你把上面全角的＆都换成半角的&

使用正则获取

$html =~ /<T><!\[CDATA\[(.*)\]\]><\/T>/)

$aaaa = $1#AAAA

写好控制结构可以把其他的都获取出来。

你到C:\perl\site\lib\HTML里面找一下有没有一个叫TreeBuilder的目录，如果有，你看一下它里面有没有一个叫XPath.pm的文件，你程序报的错误是说找不到这个文件，这个模块究竟有没有安装好，你看一下文件存不存在就知道了。AP确实有各种恶心的BUG。

如果没找到，也不一定说明他没安装成功，你用Windows的搜索功能找一下，应该是装上了，但装到别处了，把它找到，给它贴过来。

---