perl - 如何处理上传/下载弹窗

Question

我正在使用 Perl 自动化网站WWW::Selenium。我想知道如何处理单击上传或下载按钮后出现的弹出窗口。

单击上传按钮时，会打开一个对话框窗口以选择文件。单击下载按钮时，将打开一个对话框窗口以选择要保存文件的位置。

上述场景如何实现自动化WWW::Selenium？

代码

sub import_files()
{
   # http://mygengo.com/string/p/<proj_name>-1/admin/languages/import/en
   $url = $MYGENGO_STRING_PROJECT_URL . $_[0] . "-1" . $IMPORT_FILES;
   $sel->open($url);

   $sel->attach_file("class=qq-upload-button string-file-import", 
    "http://localhost/1.php"); # But this does not open the file browse window

   $sel->click("class=qq-upload-button string-file-import");
   $sel->wait_for_page_to_load(9000); 
}

Answer 1

上传场景可以通过send_keys命令轻松解决

driver.find_element_by_xpath("//*[@id='upload-import-link']/input").send_keys(file)