[Cascavel-pm] Função select (DBI::MySQL)

[Rod Za]

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?

Muito obrigado,

Rodrigo




	
		
__________________________________
Do you Yahoo!?
New and Improved Yahoo! Mail - 100MB free storage!
http://promotions.yahoo.com/new_mail