не отрабатывает скрипт Perl.

Учитель дебажить код дебажными сообщениями.

Воткни перед первым принтом:

print "Got parameters: <br>".(join "", map {"\"$_\"=\"".$FORM{$_}."\"<br>"} keys %FORM)."<br>\n";

Посмотри, что оно реально получает.

Странно, ничего не выводит, либо я неправльно передаю параметры a и b, либо увы.

попробуй перед вызовом parse_form воткнуть:

my %FORM = ();

да и хорошо бы вызывать функцию после ее обьявления, даже если и работает так, как написано у вас -- лучше так не делать, -- если хочется увести тело вниз -- то тогда обьявите что будет такая функция выше:

sub parse_form;

абсолютно ничего не изменилось :(

Натыкай в parse_form print-ов через каждую строчку, с выводом всего что только можно, --- говорю-же, учится надо дебажить print-ами, может будет понятнее, что происходит. Распечатай query string, которая приходит, может там что

спасибо за дельный совет! ошибка была здесь: foreach $pair (@pair)

s:/@pair/@pairs

Поставьте в начале скрипта следующее:

#!/usr/bin/perl -w
use strict;

Копмилятор обругает Вас за необъявленные переменные. Объявите их при помощи конструкции my $foo; , приведённой выше. Все ошибки будут как на ладони.

С твоим разбираться неохота.
Возьми рабочий кусок.

sub get_data
{
local ($index,$key,$val,$data,@data,%data);
if ($ENV{'REQUEST_METHOD'} eq "GET") {
$data=$ENV{'QUERY_STRING'};
}
elsif ($ENV{'REQUEST_METHOD'} eq "POST") {
read (STDIN,$data,$ENV{'CONTENT_LENGTH'} ); }

$data=~ s/\+/ /g;
@data=split(/&/,$data);
foreach $index (@data)
{
($key,$val)=split(/=/,$index,2);
$key=~ s/%(..)/pack("c",hex($1))/ge;
$val=~ s/%(..)/pack("c",hex($1))/ge;
#$data{$key}.="0" if (defined($data{$key}));
$data{$key}.=$val;
}
return %data;
}

офигеть ребята
имхо незачем велосипед изобретать


use CGI::Carp;

my $a = param("a");
my $b = param("b");

>имхо незачем велосипед изобретать

может человек разобраться хочет, а не профит дяде

вот и хорошо, открывается модуль CGI.pm и смотрится как бородатые дяди пишут модули

#### Method: param
# Returns the value(s)of a named parameter.
# If invoked in a list context, returns the
# entire list. Otherwise returns the first
# member of the list.
# If name is not provided, return a list of all
# the known parameters names available.
# If more than one argument is provided, the
# second and subsequent arguments are used to
# set the value of the parameter.
####