如何无需调用get()，直接向WWW::Mechanize传入原始HTML数据？

嘿，这个问题我之前也碰到过！其实WWW::Mechanize早就为这种场景提供了便捷的方法，完全不用再调用->get()这类网络请求方法。

最直接的方式就是使用update_html()方法——它可以直接把你手里的原始HTML字符串传入Mechanize对象，让它内部解析并把这个内容当作已加载的页面来处理。

举个实际的代码例子：

use WWW::Mechanize;

# 假设你已经拿到了原始HTML内容存在$original_html里
my $original_html = '<html><body><td class="target">目标内容</td></body></html>';

# 初始化新的Mechanize对象
my $new_mech = WWW::Mechanize->new();

# 直接加载原始HTML，一步到位
$new_mech->update_html($original_html);

# 接下来就可以正常用它的各种方法了，比如查找目标<td>元素
my @target_tds = $new_mech->find_all_tag('td', class => 'target');

# 遍历结果添加到列表
foreach my $td (@target_tds) {
    push @your_target_list, $td->as_text();
}

这个方法会自动帮你解析HTML，更新Mechanize内部的DOM结构，后续的查找、提取内容等操作和你用->get()加载真实页面完全一样。

如果你的场景需要模拟完整的HTTP响应（比如设置响应状态码、自定义请求头），还可以配合HTTP::Response来构造：

use HTTP::Response;

# 构造一个HTTP响应对象，传入状态码、状态信息、响应头和HTML内容
my $response = HTTP::Response->new(
    200, 
    'OK', 
    ['Content-Type' => 'text/html; charset=utf-8'], 
    $original_html
);

# 把响应对象赋值给Mechanize
$new_mech->response($response);
# 手动触发HTML解析（有些版本可能自动触发，保险起见可以加这步）
$new_mech->update_html();

不过如果只是单纯处理HTML内容，第一种方法就足够简单高效了。

内容的提问来源于stack exchange，提问作者cmcjake