|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Alexander Bolotnov 2:5052/4.82 29 Sep 2001 23:48:11 To : Dugar Bayartuev Subject : Вопрос знатокам Перла -------------------------------------------------------------------------------- > use CGI qw/:standart/; > use DBI; use strict; > my($sql) = "INSERT INTO tbl_news_items > (col_title,col_author,col_body,col_date) VALUES > (\'$title\',\'$author\',\'$body\',CURDATE())"; $rs = $dbh->do($sql); cтрахи... я бы почитал про quote или ...values(?,?,?,?); execute(@values); > if ($@) { > $rc = $dbh->rollback; ^^^^^^^^^^^^^^ а смысл? разве кроме ошибок от eval() сюда что-нить попадет? > print "Location: /cgi-bin/pr-list-dbi.pl\n\n"; выходит, ты делаешь это до ->disconnect()... но это еще фигня... Location:, в отличии от $q->redirect() (man CGI) не отдает заголовка, который я может быть просто у тебя не заметил... так, на всякий случай. а может быть у тебя он на самом деле не отдается. Alexander Bolotnov. Scientia vincere tenebras. --- * Origin: Я не слон... а вот ты - слон... (2:5052/4.82) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/27883bb65e14.html, оценка из 5, голосов 10
|