определить браузер в Perl, как проверить, является ли браузер Internet Explorer (IE) в Perl

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-код работает на веб-сервере, но ваш JavaScript работает на клиент-ПК.

Таким образом, код 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!');  
}