gpt4 book ai didi

perl - WWW::Mechanize 从页面获取内容

转载 作者:行者123 更新时间:2023-12-04 19:04:02 25 4
gpt4 key购买 nike

我用过 WWW::Mechanize 登录网站。

现在我们已经登录了,我想制作 WWW::Mechanize脚本转到 payments.php然后找到事件用户订阅(例如 VIP Access)(类:<p class="description">)。

从这里我想阅读那是什么,然后选择正确的 Action 。例如,如果用户包状态 VIP Small然后打印 PKG: VIP Small如果用户包状态 VIP Full然后打印 PKG: VIP Full .

有谁知道这样做的方法?到目前为止使用的代码(在我的 Ubuntu 虚拟机中编码):

#!/usr/bin/perl

use WWW::Mechanize;

my $forum = "http://localhost/forums/forum.php";

print "Username\r\n";
my $username = <>;
chomp($username);

print "Password\r\n";
my $password = <>;

# do login
my $mech = WWW::Mechanize->new(agentcheck => 1, agent => 'Perl WWW::Mechanize');
$mech->get($forum);
$mech->submit_form(form_number => 1, fields => { vb_login_username => $username, vb_login_password = $password });

print "this far";
$mech->follow_link(text => "Click here if your browser does not automatically redirect you.");

最佳答案

我想你需要

$mech->get('http://localhost/forums/payments.php');

但我无法帮助您从那里获取信息,而无需查看页面的 HTML。

关于perl - WWW::Mechanize 从页面获取内容,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/14943235/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com