13 521
правка
Изменения
Нет описания правки
ON table2.x=table.x
WHERE table.x=?
", undef, $x);</code-perl></s> ВСЕГДА следует использовать bind-переменные, и лишь только в крайнем случае — <tt>$dbh->quote()</tt>. Желательно использовать методы <tt>$dbh->select***</tt> и помнить о <tt>{Slice=>{}}</tt>, дающем возможность получить строчки из БД в самом удобном виде — в виде ссылки на массив хешрефов, например, <code-perl>selectall_arrayref("SELECT * FROM table WHERE x=?", {Slice=>{}}, $var1);</code-perl> Для получения ссылки на массив со значениями первой колонки — <tt>$dbh->selectcol_arrayref</tt>; для получения первой строчки в виде списка — <tt>$dbh->selectrow_array</tt>; иногда можно применять и <tt>$dbh->selectall_hashref</tt>. При этом нежелательно без крайней необходимости использовать пары prepare/execute и длинные списки переменных вместо хешей: <s><code-perl>my $sth = $dbh->prepare("SELECT ...");$sth->execute($var);while (my ($field1, $field2) = $sth->fetchrow_array){ ...}
</code-perl></s>