Perl 机械化 Returns 混乱的文本

Question

我有一个表格要通过 Mechanize 模块提交。

我选择了 form_number 并执行了 dump_forms() 结果返回了

POST http://URL (multipart/form-data)
  field1=                (text)
  field2=                (text)
  field3=                (email)
  actionbutton=Enter     (submit)

这是我的结果代码：

#!/usr/bin/perl

use strict;
use warnings;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();

my $url = "http://URL";
$mech->get($url);
$mech->form_number('1');
$mech->dump_forms();
my $result = $mech->submit_form(
    form_number => 1,
    fields       =>
    {
        field1 => 'Test1',
        field2 => 'Test2',
        email => 'test@email.com',
        actionbutton => 'Enter'
    },

);
print $result->content();

但这是输出结果。

我做错了什么？

Answer 1

您可能想要 $result->decoded_content()，而不是 $result->content()。

见https://metacpan.org/pod/HTTP::Response#r-content-bytes

Perl 机械化 Returns 混乱的文本

Perl Mechanize Returns Jumbled Text

perl

mechanize

www-mechanize