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

  • Автор темы Guest
  • Дата начала
G

Guest

#1
Всем привет!

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


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

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

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

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

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

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


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

Спасибо

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



Спасибо !
 
V

Vovochka

#2
Можно хотя бы так:
Код:
<script src='cgi/script.pl' type='text/javascript''></script>
 

FullGore

New member
27.08.2009
1
0
#3
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 символов дальше набор не шёл)
Заранее благодарен=))