Perl を使用してWWW::Mechanize::Firefox、Web サイトとの対話を自動化しています。アラートポップアップの処理に行き詰まっています。クリックしないと次のステージに進めません。無効にするか、クリックする方法を探しています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 です。