[pgsql-ayuda] agregates con mod_perl

[Jesus Aneiros]

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.
> 
> 
> Raúl Argáez
> --------- Pie de mensaje -------------------------------------------
> Archivo historico: http://tlali.iztacala.unam.mx/maillist/pgsql-ayuda
> Cancelar inscripcion:
> mail to: majordomo@tlali.iztacala.unam.mx
> text   : unsubscribe pgsql-ayuda
> 


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