powered by simpleCommunicator - 2.0.48     © 2025 Programmizd 02
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Что здесь не так, помогите!
4 сообщений из 4, страница 1 из 1
Что здесь не так, помогите!
    #32066860
zxcv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Что у мменя здесь не так, помогите начинаещему:
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
<html>
<body>Запись в базу прошла успешно</body></html>
Ok
;
}

где kod автоинкрементное поле
tema символьное
Заполняя форму и вызывая этот скрипт, сначала браузер предлагает сохранить или открыть данный скрипт, а потом быстро выполняет ничего на екран не выводя, и даже запись в базу не вставляет. Помогите плиз.
И второе: где можно взять хорошую литературу по перлу , в часности для работы c бд в инете? Спасибо
...
Рейтинг: 0 / 0
Что здесь не так, помогите!
    #32079187
Фотография Maxx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
INSERT INTO tema (kod, tema) VALUES ('', '$value{'tema'}')";
где kod автоинкрементное поле

Ну так и пишите
INSERT INTO tema ( tema) VALUES ( '$value{'tema'}')
...
Рейтинг: 0 / 0
Что здесь не так, помогите!
    #32080225
SmD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SmD
Гость
Это

$result="INSERT INTO tema (kod, tema) VALUES ('', '$value{'tema'}')";

поменяй на

$result="INSERT INTO tema (kod, tema) VALUES ('', '".$value{'tema'}."')";

это будет лучше..
...
Рейтинг: 0 / 0
Что здесь не так, помогите!
    #32080245
Фотография mahoune
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну во-первых вставь в самое начало стручку с путем к Perl типа
#!/usr/local/perl/bin/perl -w

Потом тебе правильно Maxx сказал убрать поле kod из INSERT.

SmD тоже дело говорит, будет точно известно что будет значение в строковой форме.

И попробуй узнать после исполнения запроса значение $mysql_error может ошибки были в ходе работы.

И хорошо-бы использовать стандартные средства разбора строк:
USE CGI;

Ну или как-то так!
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Что здесь не так, помогите!
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]