Архив форумов ЦИТФорума

[Niks]

Помогите прочитать данные из буфера.
В форму html вводятся данные нипример имя, пароль. Далее нажимаем "отправить", запускаем skript.pl

В скрипте станд. код:
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$input{$name} = $value;
}
Все работет путем.

Но дальше мне эти данные надо сравнить с данными из базы. Пишу

use strict;
use DBI;
my ($dbh, $sth, $count);
$dbh = DBI->connect ("DBI:mysql:host=localhost;database=wdb","user","pass", {PrintError=>0, RaiseError=>1});
$sth = $dbh->prepare ("SELECT id, name, pass FROM data");
$sth->execute ();
$count=0;
while (my @val = $sth->fetchrow_array())
{
if ($val[1] == $input{'name1'})
...

Запускаю. Ошибка 500, в логе указывает на строку в которой используются данные из формы $input{$name}

По отдельности оба кода работают отлично, вместе не хотят. В чем проблема???