无法在perl中的Selenium::Remote::Driver中获取当前URL

Question

我导航到谷歌并调用了get_currenturl((方法。但它显示超时并退出程序。

这是我试过的代码

my $driver = Selenium::Remote::Driver->new(
'browser_name' => 'firefox',
'platform'     => 'Windows',
'extra_capabilities' => {
'moz:firefoxOptions' => {},
}
);
$driver->debug_on() ;
$driver->get("https://www.google.com/");
wait_until {print $driver->get_path()};
$driver->quit;

我打开了调试，在控制台中得到了以下输出

Prepping get
Executing get
REQ: POST, http://localhost:4444/wd/hub/session/69ced133-9420-4b0e-a7fd-e4f6bb343f7e/url, {"url":"https://www.google.co.in/"}
RES: {"value":null}
Prepping getCurrentUrl
Executing getCurrentUrl
REQ: GET, http://localhost:4444/wd/hub/session/69ced133-9420-4b0e-a7fd-e4f6bb343f7e/url, {}
RES: read timeout at C:/Perl64/lib/Net/HTTP/Methods.pm line 268.

Error while executing command: Server returned error message read timeout at C:/Perl64/lib/Net/HTTP/Methods.pm line 268.
instead of data at C:/Perl64/site/lib/Selenium/Remote/Driver.pm line 403.
at C:/Perl64/site/lib/Selenium/Remote/Driver.pm line 353.
Prepping quit
Executing quit
REQ: DELETE, http://localhost:4444/wd/hub/session/69ced133-9420-4b0e-a7fd-e4f6bb343f7e, {}

在控制台中，程序在这里停留了一段时间——"执行getCurrentURL"，随后显示超时消息Res:read timeout

Answer 1

以下内容适用于我使用的Windows 10 Strawberry Perl 5.30.1版本。

我从安装了geckodriver.exe

https://github.com/mozilla/geckodriver/releases

和来自的Selenium服务器

https://www.selenium.dev/downloads/

然后从下载firefox二进制文件

https://www.mozilla.org/en-US/firefox/new/

然后从命令提示符成功启动服务器：

> java  "-Dwebdriver.gecko.driver=geckodriver/geckodriver.exe" -jar selenium-server/selenium-server-standalone-3.141.59.jar -host localhost -port 4444
20:00:48.591 INFO [GridLauncherV3.parse] - Selenium server version: 3.141.59, revision: e82be7d358
20:00:53.896 INFO [GridLauncherV3.lambda$buildLaunchers$3] - Launching a standalone Selenium Server on port 4444
2020-07-06 20:00:54.601:INFO::main: Logging initialized @12170ms to org.seleniumhq.jetty9.util.log.StdErrLog
20:01:05.928 INFO [WebDriverServlet.<init>] - Initialising WebDriverServlet
20:01:23.567 INFO [SeleniumServer.boot] - Selenium Server is up and running on port 4444

现在以下Perl脚本可以工作了：

use feature qw(say);
use strict;
use warnings;
use Selenium::Remote::Driver;
my $driver = Selenium::Remote::Driver->new(
remote_server_addr => "127.0.0.1"
);
$driver->get('http://www.google.com');
say "Result: ", $driver->get_title();
$driver->quit();

输出：

Result: Google

注意：由于某些原因，使用localhost而不是127.0.0.1作为remote_server_addr不起作用，有关更多信息，请参阅此问题。