perl - Perl WWW:Mechanize::Firefox 禁用警报

Question

我正在使用 PerlWWW::Mechanize::Firefox来自动化一些网站交互。我一直在处理警报弹出窗口。在我点击它之前，我无法进入下一阶段。我正在寻找一种方法来禁用它或单击OK。

到目前为止，我已经尝试了以下方法，但没有成功：

• $mech->eval("alert = function(val){console.log(val+' (alert disabled)');};");

• $mech->eval("window.alert = function(val){console.log(val+' (alert disabled)');};");

• $mech->eval_in_page("alert = function(val){console.log(val+' (alert disabled)');};");

• $mech->eval_in_page('alert("Hello");', { alert => sub { print "Captured alert: '@_'\n" } });

• $mech->eval_in_page('', { alert => sub { print "Captured alert: '@_'\n" } });

我的测试文件位于：

• https://github.com/jahagirdar/voter-reg/blob/master/bin/a.html
• https://github.com/jahagirdar/voter-reg/blob/master/bin/fill_form.pl

我正在使用 Firefox 版本 15.0.1“Mozilla Firefox Ubuntu 规范版本 1”。

安装的插件是 mozrepl 1.1 和 Mozilla Ubuntu 修改 2.1.1。