ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Alexey Yakovlev                      2:5020/400     18 Apr 2001  09:53:41
 To : All
 Subject : Hачинте со стиля  WAS: Perl + MySql
 -------------------------------------------------------------------------------- 
 

 И чево все любят смешанный и путанный стиль написания программ на перле ,
 лошади/люди/кони в одном файле. Ваш код понять достаточно тяжело. Во первых,
 для начинающих, нельзя в запросах использавать конструкции типа xx='$var' ,
 причина проста в самой $var может быть ковычка, и тогда запрос не будет
 выполнен, для этого есть специальная функция quote , кроме того запрос не
 всегда может быть выполнен успешно, нужно проверать ошибки после выполнения.
 
 Hо это лирическое отступление , может я конечно не догоняю чего-то , но
 здесь нет никаких запросов обновляющее другие поля нежли name. Все запросы
 "update $table set name= ...".
 
 --
 ---------------
 Alex Web Team  -   www.alyakweb.com
 
 Vlad Z пишет в сообщении <9b6fgr$2fj3$1@news.kiev.sovam.com> ...
 
 >Добрый день!
 >Может это офф, но вроде больше и спросить негде...
 >
 >Приведу кусок кода. Он должен обновлять данные в таблице.
 >-------------------------------------------------
 >$sth=$dbh->Query("select id,name,htmlcode,status from $table order by
 >name");
 > while(@r=$sth->Fetchrow()){
 >  if($FORM{"del$r[0]"} eq "1") {
 >  $sth2=$dbh->Query("delete from $table where id=$r[0]");
 >  }
 >  if($FORM{"name$r[0]"} ne $r[1]){
 >  $sth2=$dbh->Query("update $table set name='$FORM{\"name$r[0]\"}' where
 >id=$r[0]");
 >  }
 >  if($FORM{"htmlcode$r[0]"} ne $r[2]){
 >  $sth2=$dbh->Query("update $table set name='$FORM{\"htmlcode$r[0]\"}'
 
 where
 
 >id=$r[0]");
 >  }
 >  if($FORM{"status$r[0]"} ne $r[3]){
 >  $sth2=$dbh->Query("update $table set name='$FORM{\"status$r[0]\"}' where
 >id=$r[0]");
 >  }
 > }-----------------------------------------------------------
 >Hо вот, что происходит: когда обновляются поля name или status все
 >происходит хорошо. Hо когда обновляется поле htmlcode - это упорно
 >записывается в name.
 >Понять почему я не могу...
 --- ifmail v.2.15dev5
  * Origin: Alkar Teleport News Server (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Perl + MySql   Vlad Z   13 Apr 2001 13:06:45   Hачинте со стиля WAS: Perl + MySql   Alexey Yakovlev   18 Apr 2001 09:53:41