使用Perl LWP::UserAgent提交phpBB安装表单失败，返回原页面

我尝试用Perl脚本自动化phpBB的安装流程，创建了LWP::UserAgent对象，为安装第一个表单设置数据，代码如下：

# INSTALL STEP ONE ## Welcome to Installation ###################################
$install_urls[1] = $install_url;
my @install_form_one = (
    'install'       => 'Install'
);
my $ua = LWP::UserAgent->new();
$ua->timeout(180);
my $response = $ua->post($install_urls[$i], @install_form_one);
if ($response->is_success) {
    $check_result = $self->checkResult($i, $response->{_content}, $debug);
}

对应的phpBB安装第一个表单的提交按钮代码片段为：

<form id="install_install" method="post" action="//phpbb1/install/app.php/install">
    <fieldset class="submit-buttons">
        <legend>Submit</legend>
            <input class="button1" name="install" type="submit" value="Install" />
    </fieldset>
</form>

phpBB安装流程包含6个带表单的页面，需要依次填写提交完成安装。我的目标是自动加载每个表单数据并提交，推进安装流程。查阅了LWP::UserAgent和HTTP::Request::Common的文档，没发现代码错误，但POST请求成功后却返回原页面，无法进入安装的第二个页面。我已经在UA的POST请求中传入了提交按钮的名称和值，请问哪里操作有误？

以下是几个可能导致POST请求无法推进流程的原因及对应的修正方法：

• 未处理会话Cookie
  phpBB安装流程依赖会话Cookie跟踪安装进度，LWP::UserAgent默认不会自动保存和发送Cookie。需要添加HTTP::Cookies模块处理会话：

use HTTP::Cookies;
# 创建UA时关联CookieJar
my $ua = LWP::UserAgent->new(
    cookie_jar => HTTP::Cookies->new( autosave => 1 ),
    timeout => 180
);

没有Cookie的话，服务器无法识别你的安装会话，会直接返回初始页面。

• POST目标URL不正确
  表单的action属性是//phpbb1/install/app.php/install，这是相对协议URL，需要拼接完整的协议（http/https）和域名。确保$install_urls[$i]是完整URL，比如http://your-domain/phpbb1/install/app.php/install，而非不完整路径。

• 缺少表单隐藏字段
  phpBB表单通常包含隐藏字段（如CSRF令牌、会话ID等），这些是提交表单的必要参数，仅提交按钮的name/value不够。需先GET初始页面，解析所有隐藏字段后再和按钮参数一起提交：

# 先GET初始页面获取表单内容
my $get_response = $ua->get($install_url);
if ($get_response->is_success) {
    my $content = $get_response->content;
    # 解析隐藏字段（示例用正则，更可靠可使用HTML::Form模块）
    my %form_data;
    # 匹配所有<input type="hidden">
    while ($content =~ m/<input type="hidden" name="([^"]+)" value="([^"]+)"/g) {
        $form_data{$1} = $2;
    }
    # 添加提交按钮参数
    $form_data{'install'} = 'Install';
    # 提交完整表单数据
    my $response = $ua->post($install_urls[$i], \%form_data);
    # 后续处理...
}

更推荐用HTML::Form模块自动解析表单，避免正则局限性：

use HTML::Form;
my $form = HTML::Form->parse($get_response->content, $install_url);
$form->value('install', 'Install');
my $response = $ua->request($form->submit);

• 请求头不完整
  部分服务器会检查User-Agent、Referer等请求头，模拟浏览器请求头可提高兼容性：

$ua->agent('Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/114.0.0.0 Safari/537.36');
# 添加Referer头，指向当前安装页面
$ua->default_header('Referer' => $install_url);

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