在perl中检测浏览器,如何检查浏览器是否是perl中的Internet Explorer(IE)

Question

$msg_box_ok_id=smthin;
print<<HTML_alert;
<script type="text/javascript" language="JavaScript">

    if (browserName=="Microsoft Internet Explorer"){
        $msg_box_ok_id=somthinnew;      
    }
</script>
HTML_alert
;

我正在使用此代码,但javascript无法识别变量.

所以变量$ msg_box_ok_id不会改变.

Answer 1

此代码无法正常工作.

我假设您的Perl代码在Web服务器上运行,但您的JavaScript正在客户端PC上运行.

所以JavaScript代码不能以这种方式影响服务器上的程序逻辑.

看一下HTTP :: BrowserDetect模块的示例.

顺便说一下,JavaScript中的浏览器检测不会这样:http: //www.w3schools.com/jsref/prop_nav_useragent.asp

/* check the agent */  
 function checkBrowserName(name){  
   var agent = navigator.userAgent.toLowerCase();  
   if (agent.indexOf(name.toLowerCase())>-1) {  
     return true;  
   }  
   return false;  
 }  


if(checkBrowserName('MSIE')){  
  alert('Internet Explorer!');  
}