Mojo::DOM 是一个有CSS选择器支持的，简约的HTML/XML DOM解析器。它会尝试解释不正常的HTML和XML，所以你不应该使用它进行HTML和XML语法正确性的验证。
简介
当我们解析HTML/XML片段时，它会变成一个节点树。目前有八种不同类型的节点，它们分别是：cdata、comment、doctype、pi、raw、root、tag、text。元素是类型为tag的节点。
虽然所有节点类型都表示为Mojo::DOM对象，但像"attr"和"namespace"这样的方法只适用于元素操作。
Hello
World!
## 以上html代码会被解析成如下节点树
root
|- doctype (html)
+- tag (html)
|- tag (head)
| +- tag (title)
| +- raw (Hello)
+- tag (body)
+- text (World!)
大小写敏感
Mojo::DOM 默认为HTML语义，也就是说所有标签和属性名都是小写的，并且选择器也是小写的。
# HTML semantics
my $dom = Mojo::DOM->new('Hi!
');
say $dom->at('p[id]')->text;
如果发现代码中有XML声明，解析器将自动切换到XML模式，并且所有内容都会区分大小写。
# XML semantics
my $dom = Mojo::DOM->new('Hi!
');
say $dom->at('P[ID]')->text;
使用xml方法可以强制使用HTML或XML模式。
# Force HTML semantics
my $dom = Mojo::DOM->new->xml(0)->parse('Hi!
');
say $dom->at('p[id]')->text;
# Force XML semantics
my $dom = Mojo::DOM->new->xml(1)->parse('Hi!
');
say $dom->at('P[ID]')->text;
方法
Mojo::DOM 模块中实现了以下方法。
all_text
my $text = $dom->all_text;
从此元素的所有后代节点提取文本内容。
# "foo\nbarbaz\n"
$dom->parse("foo\nbar
baz\n")->at('div')->all_text;
ancestors
my $collection = $dom->ancestors;
my $collection = $dom->ancestors('div ~ p');
查找与CSS选择器匹配的此节点的所有祖先元素，并将包含这些元素的Mojo::Collection对象返回为Mojo::DOM对象。支持Mojo::DOM::CSS中的SELECTORS介绍的所有选择器。
# List tag names of ancestor elements
say $dom->ancestors->map('tag')->join("\n");
append
$dom = $dom->append('I ♥ Mojolicious!
');
此方法可以在除root节点之外的其他所以类型的节点后面添加HTML/XML代码片段。
# "Test
123
"
$dom->parse('Test
') ->at('h1')->append('123
')->root;
# "Test 123
"
$dom->parse('Test
')->at('p') ->child_nodes->first->append(' 123')->root;
append_content
$dom = $dom->append_content('I ♥ Mojolicious!
');
在root或tag类型节点的内容后面添加HTML/XML代码片段或“原始内容”。
# "Test123
"
$dom->parse('Test
') ->at('h1')->append_content('123')->root;
# "
"
$dom->parse('
')->child_nodes->first->append_content('123 ')->root;
# "Test123
"
$dom->parse('Test
')->at('p')->append_content('123')->root;
at
my $result = $dom->at('div ~ p');
查找$dom后代元素中与CSS选择器匹配的元素，并把查找到的第一个符合要求的元素作为Mojo::DOM对象返回。当找不到符合要求的元素时返回undef。支持Mojo::DOM::CSS中所有的选择器（SELECTORS）。
# Find first element with "svg" namespace definition
my $namespace = $dom->at('[xmlns\:svg]')->{'xmlns:svg'};
attr
my $hash = $dom->attr;
my $foo = $dom->attr('foo');
$dom = $dom->attr({foo => 'bar'});
$dom = $dom->attr(foo => 'bar');
对元素属性的操作，可以获取属性值，设置属性值，删除属性值。
# Remove an attribute
delete $dom->attr->{id};
# Attribute without value
$dom->attr(selected => undef);
# List id attributes
say $dom->find('*')->map(attr => 'id')->compact->join("\n");
child_nodes
my $collection = $dom->child_nodes;
返回 Mojo::Collection对象，该对象包含的是以Mojo::DOM对象存在的$dom元素的所有子节点。
# "123
"
$dom->parse('Test123
')->at('p')->child_nodes->first->remove;
# ""
$dom->parse('123')->child_nodes->first;
# " Test "
$dom->parse('123')->child_nodes->last->content;
children
my $collection = $dom->children;
my $collection = $dom->children('div ~ p');
查找与CSS选择器匹配的$dom元素的所有子元素。返回一个Mojo::Collection对象，其中包含的是以Mojo::DOM对象表示的符合要求的元素。支持Mojo::DOM::CSS的SELECTORS中介绍的所有选择器。
# Show tag name of random child element
say $dom->children->shuffle->first->tag;
content
my $str = $dom->content;
$dom = $dom->content('I ♥ Mojolicious!
');
返回$dom元素的内容，或将$dom中的内容替换为指定的HTML/XML代码片段或原始内容。仅针对root和tag类型的元素有效。
# "Test"
$dom->parse('Test')->at('div')->content;
# "123
"
$dom->parse('Test
')->at('h1')->content('123')->root;
# "123
"
$dom->parse('Test
')->at('p')->content('123')->root;
# ""
$dom->parse('Test
')->at('h1')->content('')->root;
# " Test "
$dom->parse('
')->child_nodes->first->content;
# "456"
$dom->parse('456')->at('div')->child_nodes->first->content(' 123 ')->root;
descendant_nodes
my $collection = $dom->descendant_nodes;
返回一个Mojo::Collection对象，该对象中包含的是以Mojo::DOM对象表示的$dom元素的所有后代节点。
# "123
"
$dom->parse('123
')
->descendant_nodes->grep(sub { $_->type eq 'comment' })
->map('remove')->first;
# "testtest
"
$dom->parse('123456
')
->at('p')->descendant_nodes->grep(sub { $_->type eq 'text' })
->map(content => 'test')->first->root;
find
my $collection = $dom->find('div ~ p');
查找与CSS选择器匹配的$dom元素的所有后代元素。返回一个Mojo::Collection对象，其中包含的是以Mojo::DOM对象表示的符合要求的元素。支持Mojo::DOM::CSS的SELECTORS中介绍的所有选择器。
# Find a specific element and extract information
my $id = $dom->find('div')->[23]{id};
# Extract information from multiple elements
my @headers = $dom->find('h1, h2, h3')->map('text')->each;
# Count all the different tags
my $hash = $dom->find('*')->reduce(sub { $a->{$b->tag}++; $a }, {});
# Find elements with a class that contains dots
my @divs = $dom->find('div.foo\.bar')->each;
following
my $collection = $dom->following;
my $collection = $dom->following('div ~ p');
查找与CSS选择器匹配的$dom元素之后的所有同级元素。返回一个Mojo::Collection对象，其中包含的是以Mojo::DOM对象表示的符合要求的元素。支持Mojo::DOM::CSS的SELECTORS中介绍的所有选择器。
# List tags of sibling elements after this node
say $dom->following->map('tag')->join("\n");
following_nodes
my $collection = $dom->following_nodes;
返回一个Mojo::Collection对象，其中包含以Mojo::DOM对象表示的$dom节点之后的所有兄弟节点。
# "C"
$dom->parse('A
C')->at('p')->following_nodes->last->content;
matches
my $bool = $dom->matches('div ~ p');
查询当前元素是否与CSS选择器匹配。支持Mojo::DOM::CSS的SELECTORS中介绍的所有选择器。
# True
$dom->parse('A
')->at('p')->matches('.a');
$dom->parse('A
')->at('p')->matches('p[class]');
# False
$dom->parse('A
')->at('p')->matches('.b');
$dom->parse('A
')->at('p')->matches('p[id]');
namespace
my $namespace = $dom->namespace;
返回当前元素的命名空间，如果找不到则会把undef。
# Find namespace for an element with namespace prefix
my $namespace = $dom->at('svg > svg\:circle')->namespace;
# Find namespace for an element that may or may not have a namespace prefix
my $namespace = $dom->at('svg > circle')->namespace;
new
my $dom = Mojo::DOM->new;
my $dom = Mojo::DOM->new('I ♥ Mojolicious! ');
构建一个新的基于标题的Mojo::DOM对象，并在必要时解析HTML/XML代码片段。
next
my $sibling = $dom->next;
以Mojo::DOM对象的形式返回下一个同级元素，如果没有则返回undef。
# "123
"
$dom->parse('Test
123
')->at('h1')->next;
next_node
my $sibling = $dom->next_node;
为下一个兄弟节点返回Mojo::DOM对象，如果找不到则返回undef。
# "456"
$dom->parse('123456
')->at('b')->next_node->next_node;
# " Test "
$dom->parse('123456
')->at('b')->next_node->content;
parent
my $parent = $dom->parent;
找到当前节点的父节点，并以Mojo::DOM对象返回，如果没有父节点则返回undef。
# "Test"
$dom->parse('Test
')->at('i')->parent;
parse
$dom = $dom->parse('I ♥ Mojolicious! ');
使用Mojo::DOM::HTML解析HTML/XML片段。
# Parse XML
my $dom = Mojo::DOM->new->xml(1)->parse('I ♥ Mojolicious! ');
prepend
$dom = $dom->prepend('I ♥ Mojolicious!
');
在此节点之前添加HTML/XML代码片段（除root节点外，其他所有节点都可以使用些方法）。
# "Test
123
"
$dom->parse('123
')->at('h2')->prepend('Test
')->root;
# "Test 123
"
$dom->parse('123
')->at('p')->child_nodes->first->prepend('Test ')->root;
prepend_content
$dom = $dom->prepend_content('I ♥ Mojolicious!
');
将HTML/XML代码片段或原始内容添加到root或tag类型节点内容的前面。
# "Test123
"
$dom->parse('123
')->at('h2')->prepend_content('Test')->root;
# "
"
$dom->parse('
')->child_nodes->first->prepend_content(' Test')->root;
# "123Test
"
$dom->parse('Test
')->at('p')->prepend_content('123')->root;
previous
my $sibling = $dom->previous;
以Mojo::DOM形式返回$dom元素前一个同级元素，如果没有则返回undef。
# "Test
"
$dom->parse('Test
123
')->at('h2')->previous;
previous_node
my $sibling = $dom->previous_node;
以Mojo::DOM对象的形式返回$dom节点的前一个同级节点，如果没有则返回undef。
# "123"
$dom->parse('123456
')->at('b')->previous_node->previous_node;
# " Test "
$dom->parse('123456
')->at('b')->previous_node->content;
remove
my $parent = $dom->remove;
删除当前节点，返回父节点或root节点（如果调用此方法的是root）。
# ""
$dom->parse('Test
')->at('h1')->remove;
# "456
"
$dom->parse('123456
')->at('p')->child_nodes->first->remove->root;
replace
my $parent = $dom->replace('I ♥ Mojolicious!');
使用HTML/XML代码片段替换当前节点，以Mojo::DOM的形式返回父结点或返回root结点（如果调用此方法的是root）。
# "123
"
$dom->parse('Test
')->at('h1')->replace('123
');
# "123
"
$dom->parse('Test
')->at('p')->child_nodes->[0]->replace('123')->root;
root
my $root = $dom->root;
以Mojo::DOM对象的形式返回当前结点的root结节。
strip
my $parent = $dom->strip;
在保留当前元素内容的情况下删除当前元素。就像是给当前元素脱去了衣服一样。以Mojo::DOM对象的形式返回当前元素的父元素。
# "Test"
$dom->parse('Test
')->at('h1')->strip;
tag
my $tag = $dom->tag;
$dom = $dom->tag('div');
设置或返回些元素的标签名。
# List tag names of child elements
say $dom->children->map('tag')->join("\n");
tap
$dom = $dom->tap(sub {...});
Mojo::Base 中 trap 的别名。
text
my $text = $dom->text;
仅从当前元素提取文件，不包含子元素。
# "bar"
$dom->parse("foobar
baz")->at('p')->text;
# "foo\nbaz\n"
$dom->parse("foo\nbar
baz\n")->at('div')->text;
to_string
my $str = $dom->to_string;
将此节点及其内容以HTML/XML字符串的形式返回。
# "Test"
$dom->parse('Test')->at('div b')->to_string;
tree
my $tree = $dom->tree;
$dom = $dom->tree(['root']);
文档对象模型的内部数据结构，因为这种数据结构非常灵活，所以返回的结果是动态的。
type
my $type = $dom->type;
返回当前节点的类型，可能的类型如下：cdata， comment，doctype，pi， raw， root， tag，text。
# "cdata"
$dom->parse('')->child_nodes->first->type;
# "comment"
$dom->parse('')->child_nodes->first->type;
# "doctype"
$dom->parse('')->child_nodes->first->type;
# "pi"
$dom->parse('')->child_nodes->first->type;
# "raw"
$dom->parse('Test ')->at('title')->child_nodes->first->type;
# "root"
$dom->parse('Test
')->type;
# "tag"
$dom->parse('Test
')->at('p')->type;
# "text"
$dom->parse('Test
')->at('p')->child_nodes->first->type;
val
my $value = $dom->val;
从表单元素（button、input、option、select、textarea）中提取表单的值。如果元素没有值则返回undef。在select中使用multiple属性的情况下，会查找所有具有selected属性的option元素，返回的是一个包含所有找到option元素中值的数组的引用，如果找不到任何selected属性的option元素，则返回undef。
# "a"
$dom->parse('')->at('input')->val;
# "b"
$dom->parse('')->at('textarea')->val;
# "c"
$dom->parse('')->at('option')->val;
# "d"
$dom->parse('')->at('select')->val;
# "e"
$dom->parse('')->at('select')->val->[0];
# "on"
$dom->parse('')->at('input')->val;
with_roles
my $new_class = Mojo::DOM->with_roles('Mojo::DOM::Role::One');
my $new_class = Mojo::DOM->with_roles('+One', '+Two');
$dom = $dom->with_roles('+One', '+Two');
Mojo::Base中with_roles方法的别名。
wrap
$dom = $dom->wrap('');
在当前节点外包装HTML/XML代码片段（除root节点以外的所有节点都可以调用此方法），将当前节点作为“包装器”第一个最内层元素的最后一个子节点。
# "123Test
"
$dom->parse('Test')->at('b')->wrap('123
')->root;
# "Test
123"
$dom->parse('Test')->at('b')->wrap('123')->root;
# "Test
123
"
$dom->parse('Test')->at('b')->wrap('123
')->root;
# "Test
"
$dom->parse('Test
')->at('p')->child_nodes->first->wrap('')->root;
wrap_content
$dom = $dom->wrap_content('');
在当前节点的“内容”外包装HTML/XML代码片段（只有root和tag节点可以调用此方法），将当前节点作为“包装器”第一个最内层元素的最后一个子节点。
# "123Test
"
$dom->parse('Test
')->at('p')->wrap_content('123')->root;
# "
Test
123
"
$dom->parse('Test')->wrap_content('123
');
xml
my $bool = $dom->xml;
$dom = $dom->xml($bool);
获取或设置解析器中禁用HTML语义的开关。默认为关闭状态。
重载的操作符
array
my @nodes = @$dom;
相当于调用了 child_nodes，可以理解为child_nodes的别名函数。
bool
my $bool = !!$dom;
总是返回true。
hash
my %attrs = %$dom;
相当于调用了 attr ，可以理解为 attr 的别名函数。
stringify
my $str = "$dom";
相当于调用了 to_string，可以理解为 to_string的别名函数。