Общие > Базы данных

Запись в базу данных

(1/1)

Ленивый гость:
Что у мменя здесь не так, помогите начинаещему:
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

NeoNox:

--- Цитировать ---Заполняя форму и вызывая этот скрипт, сначала браузер предлагает сохранить или открыть данный скрипт, а потом быстро выполняет ничего на екран не выводя, и даже запись в базу не вставляет. Помогите плиз.
--- Конец цитаты ---

Установи и правильно настрой сначала Perl. Читай DBI или Применение Perl и MySQL для веб приложений (кажется так). Кстати, советую читать обе.

NeoNox:
Вот тебе пример:
#! /usr/bin/perl -w

use strict;
use CGI qw(:standard);
use DBI;

my $tema=param("tema");

if ($tema eq "tema")
{
my $dbh=DBI->connect("DBI:mysql:host=localhost; database=lib", "root", "") or die $DBI::errstr;
my $sth=$dbh->prepare("INSERT INTO 
                       tema (kod, tema) 
                       VALUES 
                       (\'\', \'$tema\')";
$sth->finish();
$dbh->disconnect;
print header(),
start_html (-title => "Simple test DB",
                  -bgcolor => "silver"),
p u ("Запись в базу прошла успешно"),
end_form();
}
Только почитай сначала документацию.

Навигация

[0] Главная страница сообщений