Модераторы: korob2001, ginnie

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> JavaScript и Perl, как JavaScript записать в Perl 
:(
    Опции темы
Lapochka
  Дата 12.4.2006, 18:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 84
Регистрация: 10.10.2005
Где: Москва

Репутация: нет
Всего: 1



ребят.. такая проблемка.. есть такая вот страничка:

Код

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<meta name="keywords" content="МАИ">
<title>Самая первая группа МАИ 05-301</title>

<style type="text/css">
body { cursor:url('images/curs.cur');}
.menu { font-family:sans-serif; font-size:15px; font-weight:bold; letter-spacing:2pt; 
        font-style:normal; color:darkred; filter:dropShadow(offX=2,offY=2, color:#a0a0a0); 
        border-style:groove; border-color:#704F34; border-width:10px; text-align:center; cursor:hand}
.ss { font-family:Verdana; font-size:13px; font-weight:bold; color:#333333; cursor:hand }
</style>

<script language="javascript">
function opnewWin(s)
{ winank=window.open ("group.htm", s, "scrollbars=1, location=0, menubar=0, status=0, toolbar=0")}

function opMail()
{ winank=window.open ("mail.htm", "myWin", "location=0, menubar=0, status=0, toolbar=0, width=300, height=370")}

function menu(n)
{ for ( var i=1; i<=4; i++)
    {if (i!=n)
        eval('m'+i+'.style.display="none"')
    else
        eval('m'+i+'.style.display="block"')
    }
}

function men(i)
{if ((document.getElementById('im'+i).src).indexOf("plus.gif")>-1)
    {document.getElementById('in'+i).style.display="block"
     document.getElementById('im'+i).src="images/minus.gif"
    
    }
 else
    {document.getElementById('in'+i).style.display="none"
     document.getElementById('im'+i).src="images/plus.gif"
    }
}

function rgr(m)
{for ( var i=1; i<=6; i++){
    if (i=m){wint=window.open('rgr'+i+'.htm', "myWin", "scrollbars=1, location=0, menubar=0, status=0, toolbar=0, fullscreen=1")}
    return}
}

function ank()
{wint=window.open("form.htm", "myWin", "location=0, menubar=0, status=0, toolbar=0, scrollbars=1, fullscreen=1")}

</script>
</head>

<body bgcolor="#FFFFCC">
<br>
<table align="center" width="97%" border="0" cellpadding="10">
  <tr>
    <td width="20%" valign="top">
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr><td class="menu" onClick="menu(1)">Главная</td></tr>
        <tr><td class="menu" onClick="menu(2)">Учеба</td></tr>
        <tr><td class="menu" onClick="menu(3)">Форум</td></tr>
        <tr><td class="menu" onClick="ank()">Анкета</td></tr>
        <tr><td class="menu" onClick="menu(4)">Контакты</td></tr>
        <tr><td>&nbsp;</td></tr>
        <tr><td align="center"><strong><a href="http://mai05-301.narod.ru/">Старый сайт</a></strong></td></tr>
        <tr><td>&nbsp;</td></tr>
        <tr><td align="center">
              <a href="http://mai.exler.ru/"><img src="images/exler.gif" border="0" width="160" height="36"></a>
             </td>
        </tr>
      </table>
    </td>
    <td style="text-align:justify" valign="top">
        <div style="display:block" id="m1">
          <h3 align="center">Здравствуйте! Вы находитесь на сайте группы 05-301 МАИ (2003-2008гг.)</h3>
          На данный момент в группе учатся 30 человек (17 ж / 13 м). Несмотря на то, что состав группы периодически
          меняется, это слаженный коллектив со своими причудами и заморочками.<br>
          Если вы хотите посмотреть список группы, то нажмите сюда
          <input type="button" style="font-family:sans-serif; font-size:12px; font-weight:bold; 
          font-style:normal; color:#660000; filter:dropShadow(offX=2,offY=2, color:#a0a0a0); 
          text-align:center; cursor:hand" onClick="opnewWin('mywin')" value="Подглядеть">
          <br><br>
        </div>
        <div style="display:none" id="m2">
            <h3 align="center">Учебные материалы</h3>
            <div style="color:#330033; font-weight:bold"><i>Расписание на 2 семестр</i></div>
            <table border="0" align="center" width="98%">
              <tr>
                <td class="ss" align="center" onClick="rgr(1)">05-301</td>
                <td class="ss" align="center" onClick="rgr(2)">05-305</td>
                <td class="ss" align="center" onClick="rgr(3)">05-307</td>
                <td class="ss" align="center" onClick="rgr(4)">05-309</td>
                <td class="ss" align="center" onClick="rgr(5)">05-311</td>
                <td class="ss" align="center" onClick="rgr(6)">05-312</td>
              </tr>
            </table><br>
            <div style="color:#330033; font-weight:bold"><i>Материалы для учебы</i></div>
            <ul type="disc">
              <img src="images/plus.gif" id="im1" onClick="men(1)">&nbsp;&nbsp;Вычислительные системы, сети и телекоммуникации<br>
                <div id="in1" style="display:none">
                  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                  <img id="bt1" border="0" src="images/but1.jpg" height="16" width="70" style="cursor:hand"
                    onmouseover="bt1.src='images/but2.jpg'"
                    onmouseout="bt1.src='images/but1.jpg'"
                    onmousedown="bt1.src='images/but3.jpg'"
                    onmouseup="bt1.src='images/but2.jpg'"> Файл 1
                </div>
              <img src="images/plus.gif" id="im2" onClick="men(2)">&nbsp;&nbsp;Технология производства летательных аппаратов<br>
                <div id="in2" style="display:none">
                  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                  <img id="bt2" border="0" src="images/but1.jpg" height="16" width="70" style="cursor:hand"
                    onmouseover="bt2.src='images/but2.jpg'"
                    onmouseout="bt2.src='images/but1.jpg'"
                    onmousedown="bt2.src='images/but3.jpg'"
                    onmouseup="bt2.src='images/but2.jpg'"> Файл 1<br>
                  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                  <img id="bt3" border="0" src="images/but1.jpg" height="16" width="70" style="cursor:hand"
                    onmouseover="bt3.src='images/but2.jpg'"
                    onmouseout="bt3.src='images/but1.jpg'"
                    onmousedown="bt3.src='images/but3.jpg'"
                    onmouseup="bt3.src='images/but2.jpg'"> Файл 2
                </div>
            </ul>
        </div>
        <div style="display:none" id="m3"><br>Болталка<br></div>
        <div style="display:none" id="m4">
            <h3 align="center">Справочная информация</h3>
            <div style="color:#000066; font-weight:bold; font-style:italic; font-size:17px">Адрес МАИ</div><br>
            &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;125993, г.Москва, A-80, ГСП-3, Волоколамское шоссе, д.4<br>
            &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<b>Факс:</b>&nbsp;(495) 158-29-77<br>
            &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<b>E-mail:</b>&nbsp;<a href="mailto:[email protected]">[email protected]</a>
            <br><br><div style="color:#000066; font-weight:bold">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
            Дополнительную информацию об институте Вы сможете узнать на сайте 
            <a href="http://www.mai.ru/info/data/index.htm">МАИ</a><br>
            &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
            Либо на сайте студентов МАИ - <a href="http://mai.exler.ru/">Mai.Exler.Ru</a></div><br>
            <div style="color:#000066; font-weight:bold; font-style:italic; font-size:17px">Как с нами связаться</div><br>
            <ul>
                <li>Вы можете придти к нам на любую пару (
                        <i onClick="rgr(1)" style="font-family:sans-serif; font-size:14px; font-weight:bold; 
                            color:#660000; cursor:hand">см.Расписание</i>).
                <li>Также Вы можете <b onClick="opMail()" style="font-family:sans-serif; font-size:14px; font-weight:bold; 
                        color:#660000; cursor:hand">написать</b> нам.
            </ul>
        </div>
    </td>
    <td width="20%" valign="top">
        <table width="100%" border="0" cellpadding="5">
          <tr>
            <td width="20%" valign="top" style="font-family:sans-serif; font-size:12px; font-weight:100; 
             font-style:normal; color:#000033; border-style:inset; border-color:#663333; border-width:10px">
           <a href=http://news.yandex.ru/><h5 style="color:#000066" align="center">Яндекс.Новости</h5></a>
            <script language=javascript src=http://www.yandex.ru/include/news.js></script></td>
          </tr>
          <tr><td>&nbsp;</td></tr>
        </table>
    </td>
  </tr>
</table>

<script>      
document.body.onmousedown=new Function("if (event.button==2||event.button==3)alert('Все права защищены :)')")
</SCRIPT>

<script language="JavaScript">
<!--
var scrollCounter = 0;
var scrollText = "Самая первая группа МАИ! 05-301 FOREVER";
var scrollDelay = 70;
var i = 0;
while (i ++ <140) scrollText = " " + scrollText;
function Scroller()
{ window.status = scrollText.substring(scrollCounter++, scrollText.length);
if (scrollCounter == scrollText.length)
scrollCounter = 0;
setTimeout("Scroller()",
scrollDelay);}Scroller();
//-->
</script>

<noscript><noscript> <plaintext><plaintext>

</body>
</html>


а как сделать так чтобы то что написано на JavaScript работало в Perl? напишите хотя бы примерчик! smile
а если кому-то не сложно то перловский файлик для этой странички. буду благодарна по гроб жизни!
PM MAIL WWW ICQ   Вверх
DEER
Дата 13.4.2006, 09:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 749
Регистрация: 12.4.2005
Где: г. Рязань

Репутация: 2
Всего: 13



Если страница статическая, то есть не генерируется из БД, то смысл использовать perl скрипт для её генерации теряется...
Но если очень нужно, можно написать так
Код

use CGI qw(:standard);
use strict;

$|=1;

print header(-charset=>'Windows-1251');
print '<html>     ';
print '<head>     ';
print '<meta http-equiv="Content-Type" content="text/html; charset=windows-1251"> ';    
print '<meta name="keywords" content="МАИ">     ';
print '<title>Самая первая группа МАИ 05-301</title>     ';
print '<style type="text/css">     ';
print 'body { cursor:url(\'images/curs.cur\');}     ';
print '.menu { font-family:sans-serif; font-size:15px; font-weight:bold; letter-spacing:2pt;     ';
print '        font-style:normal; color:darkred; filter:dropShadow(offX=2,offY=2, color:#a0a0a0);     ';
print '        border-style:groove; border-color:#704F34; border-width:10px; text-align:center; cursor:hand}     ';
print '.ss { font-family:Verdana; font-size:13px; font-weight:bold; color:#333333; cursor:hand }     ';
print '</style>     ';
print '<script language="javascript">     ';
print '{ winank=window.open ("group.htm", s, "scrollbars=1, location=0, menubar=0, status=0, toolbar=0")}     ';
print 'function opMail()      ';
print '{ winank=window.open ("mail.htm", "myWin", "location=0, menubar=0, status=0, toolbar=0, width=300, height=370")}     ';
print 'function menu(n)     ';
print '{ for ( var i=1; i<=4; i++)     ';
print '    {if (i!=n)          eval(\'m\'+i+\'.style.display="none"\')     ';
print '    else    eval(\'m\'+i+\'.style.display="block"\')     ';
print '    }     ';
print '}     ';
print 'function men(i) ';    
print '{if ((document.getElementById(\'im\'+i).src).indexOf("plus.gif")>-1)     ';
print '    {document.getElementById(\'in\'+i).style.display="block"     ';
print '     document.getElementById(\'im\'+i).src="images/minus.gif"     ';
print '    }     ';
print ' else     ';
print '    {document.getElementById(\'in\'+i).style.display="none"     ';
print '     document.getElementById(\'im\'+i).src="images/plus.gif"     ';
print '    }     ';
print '}     ';
print 'function rgr(m)     ';
print '{for ( var i=1; i<=6; i++){     ';
print '    if (i=m){wint=window.open(\'rgr\'+i+\'.htm\', "myWin", "scrollbars=1, location=0, menubar=0, status=0, toolbar=0, fullscreen=1")}     ';
print '    return}     ';
print '}     ';
print 'function ank()     ';
print '{wint=window.open("form.htm", "myWin", "location=0, menubar=0, status=0, toolbar=0, scrollbars=1, fullscreen=1")}    </script> ';    
print '</head> <body bgcolor="#FFFFCC">    <br>     ';
print '<table align="center" width="97%" border="0" cellpadding="10">     ';
print '  <tr>     ';
print '    <td width="20%" valign="top">     ';
print '      <table width="100%" border="0" cellspacing="0" cellpadding="0">     ';
print '        <tr><td class="menu" onClick="menu(1)">Главная</td></tr>     ';
print '        <tr><td class="menu" onClick="menu(2)">Учеба</td></tr>     ';
print '        <tr><td class="menu" onClick="menu(3)">Форум</td></tr>     ';
print '        <tr><td class="menu" onClick="ank()">Анкета</td></tr>     ';
print '        <tr><td class="menu" onClick="menu(4)">Контакты</td></tr>     ';
print '        <tr><td>&nbsp;</td></tr>     ';
print '        <tr><td align="center"><strong><a href="http://mai05-301.narod.ru/">Старый сайт</a></strong></td></tr>     ';
print '        <tr><td>&nbsp;</td></tr>     ';
print '        <tr><td align="center">  ';    
print '              <a href="http://mai.exler.ru/"><img src="images/exler.gif" border="0" width="160" height="36"></a>     ';
print '             </td>     ';
print '        </tr>     ';
print '      </table>     ';
print '    </td>   ';    
print '    <td style="text-align:justify" valign="top">     ';
print '        <div style="display:block" id="m1">     ';
print '          <h3 align="center">Здравствуйте! Вы находитесь на сайте группы 05-301 МАИ (2003-2008гг.)</h3>     ';
print '          На данный момент в группе учатся 30 человек (17 ж / 13 м). Несмотря на то, что состав группы периодически     ';
print '          меняется, это слаженный коллектив со своими причудами и заморочками.<br>     ';
print '          Если вы хотите посмотреть список группы, то нажмите сюда     ';
print '          <input type="button" style="font-family:sans-serif; font-size:12px; font-weight:bold;  ';    
print '          font-style:normal; color:#660000; filter:dropShadow(offX=2,offY=2, color:#a0a0a0);  ';    
print '          text-align:center; cursor:hand" onClick="opnewWin(\'mywin\')" value="Подглядеть">     ';
print '          <br><br>     ';
print '        </div>     ';
print '        <div style="display:none" id="m2">     ';
print '            <h3 align="center">Учебные материалы</h3>     ';
print '            <div style="color:#330033; font-weight:bold"><i>Расписание на 2 семестр</i></div>     ';
print '            <table border="0" align="center" width="98%">     ';
print '              <tr>     ';
print '                <td class="ss" align="center" onClick="rgr(1)">05-301</td>     ';
print '                <td class="ss" align="center" onClick="rgr(2)">05-305</td>     ';
print '                <td class="ss" align="center" onClick="rgr(3)">05-307</td>     ';
print '                <td class="ss" align="center" onClick="rgr(4)">05-309</td>     ';
print '                <td class="ss" align="center" onClick="rgr(5)">05-311</td>     ';
print '                <td class="ss" align="center" onClick="rgr(6)">05-312</td>     ';
print '              </tr>     ';
print '            </table><br>     ';
print '            <div style="color:#330033; font-weight:bold"><i>Материалы для учебы</i></div>     ';
print '            <ul type="disc">     ';
print '              <img src="images/plus.gif" id="im1" onClick="men(1)">&nbsp;&nbsp;Вычислительные системы, сети и телекоммуникации<br>  ';
print '                <div id="in1" style="display:none">     ';
print '                  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;     ';
print '                  <img id="bt1" border="0" src="images/but1.jpg" height="16" width="70" style="cursor:hand"     ';
print '                    onmouseover="bt1.src=\'images/but2.jpg\'"     ';
print '                    onmouseout="bt1.src=\'images/but1.jpg\'"     ';
print '                    onmousedown="bt1.src=\'images/but3.jpg\'"     ';
print '                    onmouseup="bt1.src=\'images/but2.jpg\'"> Файл 1     ';
print '                </div>     ';
print '              <img src="images/plus.gif" id="im2" onClick="men(2)">&nbsp;&nbsp;Технология производства летательных аппаратов<br>     ';

print '                <div id="in2" style="display:none">     ';
print '                  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;     ';
print '                  <img id="bt2" border="0" src="images/but1.jpg" height="16" width="70" style="cursor:hand"     ';
print '                    onmouseover="bt2.src=\'images/but2.jpg\'"     ';
print '                    onmouseout="bt2.src=\'images/but1.jpg\'"     ';
print '                    onmousedown="bt2.src=\'images/but3.jpg\'"     ';
print '                    onmouseup="bt2.src=\'images/but2.jpg\'"> Файл 1<br>     ';
print '                  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;     ';
print '                  <img id="bt3" border="0" src="images/but1.jpg" height="16" width="70" style="cursor:hand"     ';
print '                    onmouseover="bt3.src=\'images/but2.jpg\'"     ';
print '                    onmouseout="bt3.src=\'images/but1.jpg\'"     ';
print '                    onmousedown="bt3.src=\'images/but3.jpg\'"     ';
print '                    onmouseup="bt3.src=\'images/but2.jpg\'"> Файл 2     ';
print '                </div>     ';
print '            </ul>     ';
print '        </div>     ';
print '        <div style="display:none" id="m3"><br>Болталка<br></div>     ';
print '        <div style="display:none" id="m4">     ';
print '            <h3 align="center">Справочная информация</h3>     ';
print '            <div style="color:#000066; font-weight:bold; font-style:italic; font-size:17px">Адрес МАИ</div><br>     ';
print '            &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;125993, г.Москва, A-80, ГСП-3, Волоколамское шоссе, д.4<br>     ';
print '            &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<b>Факс:</b>&nbsp;(495) 158-29-77<br>     ';
print '            &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<b>-mail:</b>&nbsp;<a href="mailto:[email protected]">[email protected]</a>     ';
print '            <br><br><div style="color:#000066; font-weight:bold">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;     ';
print '            Дополнительную информацию об институте Вы сможете узнать на сайте     ';
print '            <a href="http://www.mai.ru/info/data/index.htm">МАИ</a><br>     ';
print '            &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;     ';
print '            Либо на сайте студентов МАИ - <a href="http://mai.exler.ru/">Mai.Exler.Ru</a></div><br>     ';
print '            <div style="color:#000066; font-weight:bold; font-style:italic; font-size:17px">Как с нами связаться</div><br>     ';
print '            <ul>     ';
print '                <li>Вы можете придти к нам на любую пару (     ';
print '                        <i onClick="rgr(1)" style="font-family:sans-serif; font-size:14px; font-weight:bold;  ';    
print '                            color:#660000; cursor:hand">см.Расписание</i>).     ';
print '                <li>Также Вы можете <b onClick="opMail()" style="font-family:sans-serif; font-size:14px; font-weight:bold;     ';
print '                        color:#660000; cursor:hand">написать</b> нам.     ';
print '            </ul>     ';
print '        </div>     ';
print '    </td>     ';
print '    <td width="20%" valign="top">     ';
print '        <table width="100%" border="0" cellpadding="5">      ';
print '          <tr>     ';
print '            <td width="20%" valign="top" style="font-family:sans-serif; font-size:12px; font-weight:100;     ';
print '             font-style:normal; color:#000033; border-style:inset; border-color:#663333; border-width:10px">     ';
print '           <a href=http://news.yandex.ru/><h5 style="color:#000066" align="center">Яндекс.Новости</h5></a>     ';
print '            <script language=javascript src=http://www.yandex.ru/include/news.js></script></td>     ';
print '          </tr>     ';
print '          <tr><td>&nbsp;</td></tr>     ';
print '        </table>     ';
print '    </td>     ';
print '  </tr>     ';
print '</table>     ';
print '<script>        ';
print 'document.body.onmousedown=new Function("if (event.button==2||event.button==3)alert(\'Все права защищены :)\')")      ';
print '</SCRIPT>    <script language="JavaScript">    <!--     ';
print 'var scrollCounter = 0;     ';
print 'var scrollText = "Самая первая группа МАИ! 05-301 FOREVER";     ';
print 'var scrollDelay = 70;     ';
print 'var i = 0;     ';
print 'while (i ++ <140) scrollText = " " + scrollText;     ';
print 'function Scroller()  ';
print '{ window.status = scrollText.substring(scrollCounter++, scrollText.length);  if (scrollCounter == scrollText.length)    scrollCounter = 0;     ';
print 'setTimeout("Scroller()",    scrollDelay);}Scroller();    //-->    </script>    <noscript><noscript> <plaintext><plaintext>    </body></html> ';



--------------------
 
PM MAIL WWW ICQ MSN   Вверх
nitr
Дата 13.4.2006, 12:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 12
Всего: 84



жуть...


--------------------
PM   Вверх
Lapochka
Дата 13.4.2006, 22:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 84
Регистрация: 10.10.2005
Где: Москва

Репутация: нет
Всего: 1



пасиб.. завтра попробую как встану.. надеюсь заработает )
а если нет ждите весточки!!!
PM MAIL WWW ICQ   Вверх
korob2001
Дата 14.4.2006, 00:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61



;)))))) На самом деле всё не так уж плохо, спсобов тьма. Если не хочешь отделять разметку от кода, то можно воспользоваться конструкцией "Документ здесь".
Код

#!/usr/bin/perl -T

print "Content-type: text/html\n\n";
print <<HTML_CODE;
<html>
     <head>
          <title>Test page</title>
     </head>
     <body>
          <center><h2>This is a test page.</h2></center>
     </body>
</html>
HTML_CODE


В итоге, получаем тот же результат, что и с большим кол-вом perint.
Конечно же код html меняй на свой. Так же, можно воспользоваться qq или q, а можно и просто в отедельный файл его вынести, открывать и выводить код из него или хранить в конеце этого же файла после его логического конца. smile

Это сообщение отредактировал(а) korob2001 - 14.4.2006, 00:35


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
Lapochka
Дата 15.4.2006, 13:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 84
Регистрация: 10.10.2005
Где: Москва

Репутация: нет
Всего: 1



korob2001
как html вставить я знаю.. с этим нет вообще никаких проблем!!!
как сделать чтобы javascript заработал


DEER
если бы это еще работало smile страничка грузится с ошибками (не работает javascript)

Это сообщение отредактировал(а) Lapochka - 15.4.2006, 13:27
PM MAIL WWW ICQ   Вверх
BlackLFL
Дата 15.4.2006, 13:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 263
Регистрация: 15.9.2005
Где: Москва

Репутация: 3
Всего: 12



Цитата(Lapochka @ 15.4.2006, 14:25 Найти цитируемый пост)
как сделать чтобы javascript заработал

Perl тут непричем!
PM WWW   Вверх
Lapochka
Дата 15.4.2006, 13:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 84
Регистрация: 10.10.2005
Где: Москва

Репутация: нет
Всего: 1



BlackLFL

не поняла? как это не при чем?
если ты не понял.. то мне нужно чтобы страничка, код которой я написала.. полностью работала в перле.
т.е. чтобы вместо http://localhost/index.html .. писать в http://localhost/cgi-bin/index.pl (исп. апач)
но грузилось чтобы одно и тоже! чтобы и менюшка нормально работала и все остальное тоже!

Это сообщение отредактировал(а) Lapochka - 15.4.2006, 13:31
PM MAIL WWW ICQ   Вверх
BlackLFL
Дата 15.4.2006, 13:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 263
Регистрация: 15.9.2005
Где: Москва

Репутация: 3
Всего: 12



Цитата(Lapochka @ 15.4.2006, 14:28 Найти цитируемый пост)
не поняла? как это не при чем?

Я все понял, а Вы боюсь не понимаете различие между Perl и JS.

Напишите
Код

#!/usr/bin/perl
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser); # For debuging

print "Content-type: text/html\n\n";

print <<HTML_CODE;
<html>
     <head>
          <title>Test page</title>
     </head>
     <body>
          <center><h2>This is a test page.</h2></center>
          <script>alert('Hello');</script>
     </body>
</html>
HTML_CODE
1;

и посмотрите результат
Добавлено @ 13:45
Цитата(Lapochka @ 15.4.2006, 14:25 Найти цитируемый пост)
как html вставить я знаю.. с этим нет вообще никаких проблем!!!

HTML, JS это текст, и вставляется одинаково ...

PM WWW   Вверх
korob2001
Дата 15.4.2006, 15:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61



Код

#!/usr/bin/perl -T

print "Content-type: text/html\n\n";
print <<HTML_CODE;
<html>
     <head>
          <title>Test page</title>
          <script language="javascript" type="text/javascript">
               <!--// This is a test script
               function showMessage() {
                     var message = "Hello, from JavaScript!";
                     window.alert(message);
               }
               //-->
          </script>
     </head>
     <body onload="showMessage()">
          <center><h2>This is a test page.</h2></center>
     </body>
</html>
HTML_CODE


Ну а если так попробовать? smile

Это сообщение отредактировал(а) korob2001 - 15.4.2006, 15:09


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
Lapochka
  Дата 15.4.2006, 18:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 84
Регистрация: 10.10.2005
Где: Москва

Репутация: нет
Всего: 1



я ж говорю.. при помощи обыкновенной вставки в принт нифига не работает. и просто как текст JS не вставить.. потому что работать нифига не будет!!

кто не верит. включите апач и посморите!
если б так работало я б наверное не писала сюда!!!
Добавлено @ 18:43
BlackLFL

Перл - на стороне сервера, JS - на стороне клиента!

перл не понимает вообще <script>!!!! не понимает!!!
и код который ты написал не работает!!!
PM MAIL WWW ICQ   Вверх
korob2001
Дата 15.4.2006, 21:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61



Цитата

кто не верит. включите апач и посморите!
если б так работало я б наверное не писала сюда!!!

А по твоему тут никто, кроме тебя, апач не включал? ;)))))) Я не первый раз генерирую код JavaScript. Тот код, который я тебе показал, прекрасно работает.
Цитата

Перл - на стороне сервера, JS - на стороне клиента!

Это и есть ответ на твой вопрос.

1. Клиент отправляет запрос на сервер.
2. Сервер обрабатывает запрос.
3. Если клиент обратился к исполняемому файлу, то сервер запускает запрашиваемое приложение (нашу программу).
4. Та генерирует ему запрашиваемую страницу.
5. Сервер отправляет её клиенту.

Заметь, что сначала страница генерируется на сервере ( вместе с кодом JavaScript, который и не должен выполняться на сервере, он не имеет никакого отношения к Perl или к серверу), затем сервер отправляет ответ клиенту, а только после загрузки страницы, браузер анализирует и транслирует код JavaScript или VBScript да и вообще что угодно. Обрати внимание на выделенную часть, она указывает на дистанцию между клиентом и сервером. Вообще Perl не интересует, что он генерирует, лишь бы это не нарушало его правила.
Цитата

перл не понимает вообще <script>!!!! не понимает!!!
и код который ты написал не работает!!!

smile Perl его и не должен понимать, этот тег должен понимать браузер клиета, точнее тоже не должен, но может. smile

ЗЫ: Кстати, так как твой JavaScript, достаточно большой, почему бы не подумать на тем, что бы вынести его в отдельный файл? Тогда Perl'у нужно будет вообще сгенерировать, только тег <script>.

Это сообщение отредактировал(а) korob2001 - 15.4.2006, 21:53


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
S.A.P.
Дата 15.4.2006, 22:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2664
Регистрация: 11.6.2004

Репутация: нет
Всего: 71



Я в перле не силен (случайно сюда зашел smile ). но обнаружил, что у тебя ссылки относительные:
images/curs.cur, group.htm, mail.htm и т.д.

Естественно, если твой скрипт находится в директории cgi-bin, ниче работать не будет smile . Ссылки надо делать абсолютными
/images/curs.cur, /group.htm, /mail.htm и т.д.



PM MAIL   Вверх
Lapochka
Дата 15.4.2006, 23:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 84
Регистрация: 10.10.2005
Где: Москва

Репутация: нет
Всего: 1



korob2001
мда.. наши преподы мудаки!!! нафиг тогда требовать чтобы в перловском файле работал JS smile

смари. я работаю вот в dreamweaver.. и я там предположим создаю файл JS где описываю все мне необходимые функции.. а как его вызывать эти функции? я просто раньше так никогда не делала.. я с этим работаю тока месяц всего лишь!
и в перле тогда как вставлять.. поподробнее плиз!
оч буду благодарна
PM MAIL WWW ICQ   Вверх
BlackLFL
Дата 15.4.2006, 23:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 263
Регистрация: 15.9.2005
Где: Москва

Репутация: 3
Всего: 12



Цитата(Lapochka @ 15.4.2006, 19:32 Найти цитируемый пост)

перл не понимает вообще <script>!!!! не понимает!!!

А Perl ненадо понимать <script>, т.к. он отдает текст, и браузер сам уже решать будет, что ему делать с <script>.

Цитата

и код который ты написал не работает!!!

Учите мат часть, проверяйте настройки браузера.

Это сообщение отредактировал(а) BlackLFL - 15.4.2006, 23:59
PM WWW   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl: CGI программирование"
korob2001
sharq
  • В этом разделе обсуждаются вопросы относящиеся только к CGI программированию
  • Если ваш вопрос не относится к системному или CGI программированию, задавайте его в общем разделе
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", качать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: разработка для Web | Следующая тема »


 




[ Время генерации скрипта: 0.0796 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.