Perl WWW：Mechanize :: Firefox禁用警报

Question

我正在使用Perl的WWW::Mechanize::Firefox来自动化一些网站互动。我被困在处理警报弹出窗口。直到我点击它，我不能进入下一阶段。我正在寻找一种方法来禁用它或单击确定。

到目前为止，我已经尝试了以下内容但没有取得任何成功：

• $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。