使用 BrowserMob 代理和 selenium web 驱动程序使用 perl 客户端捕获 HTTP 请求标头/参数

Question

我正在尝试使用 Selenium::Remote::Driverand Browsermob::Proxy 捕获 http 请求参数。伪代码如下。我无法获取 http 标头。

任何帮助将不胜感激。

use Selenium::Remote::Driver;
use Data::Dumper;

my $proxy = Browsermob::Proxy->new(trace => 2);
my $driver = Selenium::Remote::Driver->new(
browser_name => 'firefox',
proxy        => $proxy->selenium_proxy(1)
);

$proxy->new_har( payload => {
        initialPageRef => '1' }, captureHeaders => 'true',
    captureContent => 'true',
    captureBinaryContent => 'true');

$driver->get('http://www.google.com/');
print Dumper($proxy->har);

更新：

1. 模块 Net::HTTP::Spore::Role::Middleware 使用了不推荐使用的方法 (Class::MOP::load_class)。我把它改成了 Class::Load::load_class
2. Selenium::Remote::Driver 的参数“httpProxy”必须是没有 URL 方案的特定 IP 地址。如果是 $proxy->selenium_proxy，则不工作。

但是，我只能捕获第一个请求。无法捕获 selenium 驱动器发出的后续请求。例如，下面的代码只捕获第一个 GET 请求而不是第二个。

use Data::Dumper;
use Browsermob::Proxy;
use Selenium::Remote::Driver;

my $proxy = Browsermob::Proxy->new(
server_port => 8080,
);


$proxy->new_har( payload => {
        initialPageRef => 'payload is optional' }, captureHeaders => 'true',
    captureContent => 'true',
    captureBinaryContent => 'true', port => $proxy->port );

my $driver = Selenium::Remote::Driver->new(
browser_name => 'firefox',
proxy        =>  { 'proxyType' => 'manual', 'httpProxy' =>     '127.0.0.1:'.$proxy->port}, 
);
$driver->get('http://www.google.com/');
$driver->find_element("//input[\@name='q']")->send_keys("selenium");
$driver->find_element("//button[\@name='btnG']")->click;
print Dumper($proxy->har);

Answer 1

使用create_new_har 代替new_har。

$proxy->create_new_har(
    payload => {
        initialPageRef => 'payload is optional'
    },
    captureHeaders => 'true',
    captureContent => 'true',
    captureBinaryContent => 'true'
);