Ситуация следующая:
Существует массив @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";
};