perl cgi 无法使弹出窗口正常工作

Question

当用户单击它转到 cgi 页面的链接时，我想要完成什么。在 cgi 页面上，我需要做一些检查，然后弹出一个将用户发送到不同页面或重定向到某个页面的窗口。重定向有效，但弹出窗口无效。是否有可能在 else 语句中有一个弹出重定向？

if($value)
{
    print "<script type=\"text/javascript\">  window.open(\"www.mysite.com/whatever/\",\"popup\", \"width=500\");</script>";
}
else
{
      print redirect(-url=>"www.site.com");
}

Answer 1

想到的第一个解决方案是使用 ajax。当您的页面加载时，触发一个脚本，该脚本调用执行您检查的方法。该方法会将其信息返回给调用 javascript 方法，并根据需要生成弹出窗口或重定向。

您不能只发送一串 javascript 作为对浏览器的响应并让它运行。必须有一个触发脚本的事件（点击）。脚本必须处理返回结果。