在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!');  
}