如何在Perl中修改本地HTML文件？

Question

是否有CPAN模块或代码段，可用于在不使用regExp的情况下修改本地HTML文件？

我想做的事 ：

1. 更改开始标记（例如： <div>到<div id="newtag"> ）
2. 在另一个标签之前添加标签（例如： </head>到<script type="text/javascript"> ...</script></head>
3. 移除标签
4. 读取给定标签的内容。 （<-好的，可以使用XML / HTML解析器来完成。

Answer 1

如果您拥有HTML，而没有XHTML，则您不想使用XML解析器。

HTML :: Parser是Perl的标准HTML解析器。 几乎所有其他内容都建立在其之上。

HTML :: TokeParser是HTML :: Parser的替代接口。 它按需返回内容，而不是将所有内容传递给回调。

HTML :: TreeBuilder从HTML构建类似DOM的树，然后可以对其进行修改。

HTML :: TreeBuilder :: XPath扩展了具有XPath支持的HTML :: TreeBuilder。

HTML :: Query通过类似jQuery的选择器扩展了HTML :: TreeBuilder。

pQuery是另一个模块，它为HTML :: TreeBuilder提供了更完整的jQuery兼容性。

Answer 2

CPAN

• XML :: XPATH
• XML :: Xerces

一个简单的CPAN搜索返回

• XML搜索

XPATH

• XPATH教程

听起来您不熟悉XPath。 这是一个使您熟悉的快速教程。 它不是Perl，但将解释概念。