|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Vadim Kuznetsov 2:5020/238.1 28 Apr 2001 00:22:21
To : All
Subject : perl+postgres+sql
--------------------------------------------------------------------------------
Вот, этот скрипт работает правильно и вставляет значения в базу:
===CUT===
#!/usr/bin/perl -w
use Pg;
my ($conn, $result, $numb, $name1, $name2);
$numb = 5;
$name1 = 'Vasya';
$name2 = 'Pupkin';
$conn = Pg::connectdb("dbname=template1");
$result =
$conn->exec("Insert into table1 values ('$numb', '$name1', '$name2')");
===CUT===
А этот получает данные из формы, но в базу ничего не добавляет, как результат
только выводит HTML со значениями формы.
===CUT===
#!/usr/bin/perl -w
use Pg;
use CGI qw/:standard/;
my ($query, $conn, $result, $numb, $name1, $name2);
$query = new CGI(\*STDIN);
$numb = $query->param('num');
$name1 = $query->param('nam1');
$name2 = $query->param('nam2');
$conn = Pg::connectdb("dbname=template1");
$result =
$conn->exec("Insert into table1 values ('$numb', '$name1', '$name2')");
print header, start_html;
print $numb;
print $name1;
print $name2;
print end_html;
===CUT===
print "$conn->errorMessage\n"; выдает:
PQsendQuery() -- There is no connection to the backend.
- что не совсем ясно, поскольку postgres запущен и отвечает.
Подскажите, что я делаю не так... (Perl 5.005, Apache, RH6.2, Postgres 6.5.3)
Заранее спасибо!
Всего наилучшего.
Vadim.
--- Blue Wave/DOS v2.30
* Origin: InfoScience BBS user's message (2:5020/238.1)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
