Re: [pgsql-ayuda] agregates con mod_perl

Bueno espero que el select doble sea cuestion de error al pasar el mensaje
no? Lo otro es el print sin argumento?!

A mi me funciona perfecto este programa:

#!/usr/bin/perl
use strict;
use DBI;

my $dbh = DBI->connect("dbi:Pg:dbname=ships", "", "");
my $query = "SELECT max(launched) FROM ships";

my $sth = $dbh->prepare($query);
$sth->execute;

while ( my @rows = $sth->fetchrow_array ) {

# statements.....
print "@rows\n";
}

$sth->finish;
$dbh->disconnect;

On Sun, 23 Jul 2000, Ra?l Arg?ez wrote:

> Tengo el siguiente problema (que creo es de conocimientos elementales), al usar
> psql y tratar de saber el maximo valor de una columana uso:
>
> select max (numreg) from clientes;
>
> el resultado me es devuelto sin ningun problema, pero cuando lo trato de hacer
> desde un script con mod_perl no encuentro la manera de extraer el resultado del
> query:
>
> $result=$conn->exec ("select select max (numreg) from clientes");
>
> es mas la sentecia:
>
> die $conn->errorMessage unless $PGRES_TUPLES_OK eq $result->$resultStatus;
>
> me regresa un error al intentar ejecutar el scrit.
>
> el resultado lo trato de extraer de la manera clasica:
>
> while (@row=$rsult->fetchrow){
> print ;
> }
>
> Alguien me pudiera indicar que estoy haciendo mal?
>
> De antemano gracias.
>
>
> Ral Arg�z
> --------- Pie de mensaje -------------------------------------------
> Archivo historico: http://tlali.iztacala.unam.mx/maillist/pgsql-ayuda
> Cancelar inscripcion:
> mail to: majordomo(at)tlali(dot)iztacala(dot)unam(dot)mx
> text : unsubscribe pgsql-ayuda
>

--------- Pie de mensaje -------------------------------------------
Archivo historico: http://tlali.iztacala.unam.mx/maillist/pgsql-ayuda
Cancelar inscripcion:
mail to: majordomo(at)tlali(dot)iztacala(dot)unam(dot)mx
text : unsubscribe pgsql-ayuda