Как увязать Перл и Ява-скрипт

Тема в разделе "Perl программирование", создана пользователем -, 7 янв 2009.

  1. Гость

    Всем привет!

    Я новичек в веб программировании. Только учусь так сказать
    Подскажите как осуществить сл. затею


    Есть скрипт на перле который из текстового файла выдергиет случайным образом строчку (пример, подсказака афоризм и тд)
    Необходимо полученный текстовый блок воткнуть на страницу в окошко со скролингом. Т.е пример должен прокручиваться автоматом.

    Скрипт явошный я нашел который это делает. Но вот беда
    В теле скрипта текстовые блоки берутся из предопределенного объявленного массива.

    Я попробывал тупо подставить SSI команду типа

    singletext[1]='<!--#include virtual="/cgi/wophrase.cgi" -->'

    Не дал конечно выполнить такой фокус
    Вопрос.

    Как в массив определяемый ява-скриптом воткнуть данные получаемые в результате выполнения перл-скрипта


    Это не окончательный вариант идеи. Если посоветуете может кардинально по другому- буду рад.

    Спасибо

    Цель- текст должен быть случайным образом взят из какой либо базы и воткнут в окно с автоматическим скроллингом
    В php не предлагайте- не бум-бум



    Спасибо !
     
  2. Vovochka

    Vovochka Гость

    Можно хотя бы так:
    Код (Text):
    <script src='cgi/script.pl' type='text/javascript''></script>
     
  3. FullGore

    FullGore New Member

    Регистрация:
    27 авг 2009
    Сообщения:
    1
    Симпатии:
    0
    HI2ALL!~

    Возникла проблема. Есть код на перле вместе с яваскриптом. есть ищо 1 яваскрипт и его тоже нужно впихнуть в перл, желательно без больших изменений в структуре находящегося в перле. Вобщем задача состоит в том чтобы скрипт показывал при печатании оставшееся количество символов.

    то что есть:

    sub draw_item_of_notes {

    my ($data) = @_;
    $_REQUEST {__script} .= "var sended = 0;";

    draw_form ({
    left_buttons => [
    {
    icon => 'ok',
    label => 'OK',
    href => "java script:
    if (sended == 0) {
    var note = document.forms['form'].elements['_label'].value;
    var re = /\%/g;
    note = note.replace(re, '{percent}');
    if (note.length <= 100) {
    sended = 1;
    window.returnValue.result = 'ctrl_enter';
    window.returnValue.note = note;
    window.close ();
    nop ();
    } else {
    alert('Сообщение слишком длинное');
    }
    }
    ",
    hotkey => {code => Enter, ctrl => 1},
    }
    ],

    },

    $data,

    [
    {
    name => 'label',
    label => 'Комментарий',
    type => 'text',
    cols => 70,
    rows => 15,
    },
    ],
    )


    }
    надыбил в инете нужный яваскрипт, из которого нада впихнуть строчку с отображением количества оставшихся символов.

    <script language="JavaScript">
    <!--
    var count=100;
    function load1()
    {
    document.formText.t1.value=count
    document.formText.t2.value=count
    }
    function text1Change()
    {
    a=document.formText.text1.value.length;
    if((a)>count)document.formText.text1.value=document.formText.text1.value.substring(0
    ,count);
    a=document.formText.text1.value.length;
    document.formText.t2.value=count-a;
    }
    //-->
    </script>
    </head>
    <body>
    <form name="formText">
    <textarea name="text1" rows=5 cols=30 onkeyup="text1Change()"></textarea><br>
    Осталось:
    <input type="text" name="t2" size="4" maxlength="4" disabled="false">
    </form>
    </body>
    </html>

    Либо без 2го яваскрипта сделать так чтобы просто напросто после введения 100 символов дальше набор не шёл)
    Заранее благодарен=))
     
  4. BOPOHA

    BOPOHA Well-Known Member

    Регистрация:
    26 апр 2006
    Сообщения:
    118
    Симпатии:
    0
    Если актуально, то ...
    Предлагаю использвать jQuery.AJAX + Perl. Подробности тут: http://docs.jquery.com/Ajax.
     
Загрузка...

Поделиться этой страницей