Ввод данных в скрипт с HTML- страницы, организовала обычной HTML- формой с кнопкой "Submit", а вот с выводом обработанных данных из Perl скрипта на ту же HTML страницу - у меня проблема.....
Вы моя последняя надежда...
Скрипт:
Код: Выделить всё
#! /usr/bin/perl
# $debuging mode on/off
use smpp;
# ----------------------------------------------
read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@arrays = split(/&/, $buffer);
foreach $array (@arrays) {
($name, $value) = split(/=/, $array);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$input{$name} = $value;
}
$data{''} = $input{Message};
# --------------------------------------------
while (($key, $value) = each(%data)) {
print "\n$key ======== Результат обработки ========\n";
($tmp, $hash) = GetTextPDU("getvalue",$value);
print "$tmp\n";
while (($key1, $value1) = each(%$hash)){
print " $key1: $value1\n";
}
print "$key =============== Конец ================\n\n";
}
Код: Выделить всё
<html>
<body>
<center>
<h2>Декодер HEX</h2>
</center>
<center>
<div id="contact-area">
<form method="post" action="cgi-bin/test.pl">
<label for="Message" id="Message">Исходные данные:</label><br />
<textarea name="Message" rows="4" cols="62" onfocus="this.value=''; this.onfocus=null;">Введите данные</textarea>
<br>
<input type="submit" name="submit" value="Отправить" class="submit-button" />
<input type="reset" name="reset" value="Очистить" class="reset-button" />
</form>
</div>
</center>
</body>
</html>
уличная магия тут не рулит