[Cascavel-pm] Função select (DBI::MySQL)
Luis Champs de Carvalho
monsieur_champs em yahoo.com.br
Segunda Julho 12 07:56:48 CDT 2004
On Fri, 9 Jul 2004, Rod Za wrote:
> Olá,
>
> Estou pensando em fazer uma função genérica para o comando select usando
> DBI::MySQL. A função é mais ou menos assim:
>
> _BEGIN_
> sub select{
> my $select = shift;
> my $from = shift;
> my $where = shift;
> my $query = "SELECT $select FROM $from ";
> defined($where) ? $query .= "WHERE $where;" : $query .= ";";
> my $sth = $self->{dbh}->prepare($query) or die "Erro ao executar prepre: $!";
> $sth->execute() or die "Erro ao tentar executar a query: $query. $!";
> my @res;
> while(my @rows = $sth->fetchrow_array){
> push @res, @rows;
> }
> return @res;
> }
> _END_
>
> A função funciona bem retornando um array com todos os campos do select.
>
> Eu queria modificar esta função para retornar um hash do tipo:
> { NOME_CAMPO_SELECT2 => valor_retornado_por_fetchrow_array,
> NOME_CAMPO_SELECT1 => valor_retornado_por_fetchrow_array,
> }
>
> Alguém tem alguma sugestão?
>
Oies, Rodrigo.
Acho que você poderia se beneficiar das bibliotecas Im::DBI e
Class::DBI, que implementam isso de uma forma mais simples, poderosa e
fácil de usar.
Claro, você precisa aprender a usar estas bibliotecas, mas isso 30
minutos de manual resolvem.
Putamplexos!
--
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Luis Campos de Carvalho is BSc in Comp Science,
PerlMonk [SiteDocClan], Cascavel-pm Moderator,
Unix Sys Admin && Certified Oracle DBA
http://br.geocities.com/monsieur_champs/
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Mais detalhes sobre a lista de discussão Cascavel-pm