Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: разработка для Web > JS в PERL

Автор: SantaXP 9.9.2004, 17:08

Сразу говорю, что CGI.pm не использую и разрешение у страницы .pl! Но вот скрипты на JS никак не хотят запускаться (даже простые alert'ы), а CSS стиль работает на половину (только свойства ссылок, размер шрифта текста почему то отказывает меняться).
Как вы думаете, в чём проблема. Сервер - Xitami (xitami.com), mod_perl не установлен. Страничку на ПЕРЛ делаю в первый раз.

Автор: GoodBoy 9.9.2004, 17:13

SantaXP
Думаю, что ни перл, ни Xitami, ни mod_perl, ни CGI.pm, ни .pl тут вообще не при чем!!!!!!!

Автор: korob2001 9.9.2004, 18:31

А такой скрипт тоже не работает?

Код


#!/usr/bin/perl
use strict;
print "Content-type: text/html\n\n";
print <<HTML;
<html>
 <head>
  <title>Test</title>
  <script language="JavaScript" defer type="text/javascript">
   <!--//
    function getClock() {
             var date = new Date;
             var hour = date.getHours();
             var min = date.getMinutes();
             var sec = date.getSeconds();
             if ( hour < 10 ) hour = ' ' + hour;
             if ( min < 10 ) min = '0' + min;
             if ( sec < 10 ) sec = '0' + sec;
             document.forms[0].elements[0].value =
                   '  ' + hour + ':' + min + ':' + sec;
             setTimeout("getClock()", 100);
    }
   //-->
  </script>
 </head>
 <body onLoad='getClock()'>
  <form>
   <input type="text" size="10">
  </form>
 </body>
</html>
HTML

Сохрани его в файл с расширением .pl в каталог /cgi-bin. Затем запусти сервер и эту программу. Если увидишь текущее время, значит JavaScript прекрасно работает.

Если тебя интересует что-то конкретное, то задай вопрос по конкретнее.

Удачи.