Автор Тема: Валится цикл по массиву на Perl. HELP!!!  (Прочитано 1637 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Unregistered

  • Гость
Валится цикл по массиву на Perl. HELP!!!
« : 24 Августа 2002, 16:00:55 »
Ситуация следующая:

Существует массив @art_zakaz из которого вытаскивается по 3 элемента.
Из этих элементов составляется запрос SQL.
Так вот этот цикл валится после 2 захода (на 3-ем выдает ошибку).

Причем под виндами все работает нормально, а под Unix не хочет.

Спасите плиз!

while (@art_zakaz){

            $arr_art = shift(@art_zakaz);
            $arr_size = shift(@art_zakaz);
            $arr_count = shift(@art_zakaz);
           
      
         $dbh = DBI->connect( "DBI:XBase:")
         or
         die " Невозможно соединение с базой данных: ", $DBI::errstr,"\\n";
            $query2 = "SELECT OST FROM db WHERE ART= ".$dbh->quote($unc_arr_art)." AND RAZM=\\\'$arr_size\\\'";
         $sth = $dbh->prepare("$query2")
         or
         die " Невозможно подготовить команду SQL: ", $dbh->errstr(),"\\n";
         $sth->execute
         or
         die " Невозможно выполнить команду SQL: ", $sth->errstr(),"\\n";
           
            while ( my (@db_ost) = $sth->fetchrow_array() ){
         push(@db_ost_all, @db_ost);
            };

            $dbh->disconnect
          or warn "Проблема при отсоединении: ", $dbh->errstr(), "\\n";      
};

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28