我正在使用 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。