Что у мменя здесь не так, помогите начинаещему:
use DBI;
print "content-type:text/html\\n\\n";
$method=$ENV{\'QUERY_STRING\'};
$form_data=~s/%(..)/pack("C", hex($1))/eg;
$form_data=~s/\\n/\\0/g;
@pairs=split(/&/, $form_data);
foreach $pair(@pairs) {
($name, $value)=split(/=/, $pair);
$form{name}=$value;
}
my $dbh=DBI->connect("DBI:mysql:database=lib; host=localhost", "root", "") or die $DBI::errstr;
if (!$form{\'tema\'})
{
$result="INSERT INTO tema (kod, tema) VALUES (\'\', \'$value{\'tema\'}\')";
print<
Запись в базу прошла успешно
Ok
;
}
где kod автоинкрементное поле
tema символьное
Заполняя форму и вызывая этот скрипт, сначала браузер предлагает сохранить или открыть данный скрипт, а потом быстро выполняет ничего на екран не выводя, и даже запись в базу не вставляет. Помогите плиз.
И второе: где можно взять хорошую литературу по перлу , в часности для работы c бд в инете? Спасибо
