Perl 是否有与 Java 的 Robot 类 (java.awt.Robot) 等效的类？

Question

Perl 是否有与 Java 的 Robot 类 (java.awt.Robot) 等效的类？

Answer 1

在 Windows 上，我一直使用 Win32:: GuiTest。

Answer 2

对于 X (Linux/Unix)，有 X11::GUITest。

对于 Windows，有 Win32::CtrlGUI，尽管它可能有点棘手安装其先决条件。

Answer 3

如果您正在寻找一种控制浏览器以进行功能测试的方法，Selenium 具有 Perl 绑定：http:// /selenium.openqa.org/

Answer 4

Linux/Unix 上有：

http://sourceforge.net/projects/x11guitest

我不熟悉使用 Perl 的 Windows 或 Mac 类似的东西。

Answer 5

或者，您当然可以使用 WWW::Mechanize 模块来创建代理，就像我们在工作中所做的那样。 我们有一个名为 AppMon 的工具，它实际上只是 Mechanize 的戏剧化包装。

Mechanize 模块允许您使用看起来很像这样的脚本：

use WWW::Mechanize;

my $Agent = WWW::Mechanize->new(cookie_jar => {});

$Agent->get("http://www.google.com/search?q=stack+overflow+mechanize");
print "Found Mechanize" $Agent->content =~ /WWW::Mechanize/;

并将导致输出“Found Mechanize”。 这是一个非常简单的脚本，但请放心，您可以很好地与表单交互。

您还可以迁移到 Ruby 并使用 Watir 或 Selenium 作为另一种替代方案，尽管不那么有趣（就编码而言）或可自动化。 Selenium 有一个 firefox 扩展，对于创建 selenium 脚本非常有用，并且可以在它支持的各种语言之间更改它们，这在自动化方面相当广泛。

更新 - 2016 年 11 月

虽然我没有太多机会使用它，但大多数语言也有 webdriver 包，Perl 也不例外。

Selenium::Remote::驱动程序