Foro - Perl en Español

por **hugo11ab** » 2010-12-31 09:19 @430

¿Qué tal? Antes que nada les deseo un feliz año nuevo y que todos sus propósitos se cumplan, pero sobre todo que haya mucha salud.

El problema que tengo es el siguiente: ¿hay alguna manera de obtener el valor de un campo autoincremental desde Perl? Estoy haciendo un script en Perl donde inserto un registro en una tabla de Perl llamada programas, la cual tiene un campo tipo aautoincremental llamado "id". Cada vez que inserto un programa el campo id se incrementa automáticamente, entonces quiero saber cómo puedo saber el valor de id.

Buscando en la web encontré que se regresa con RETURNING id, pero no sé cómo obtener ese valor desde Perl. Este es el script en el cual estoy tratando de recuperar ese valor.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
BEGIN 
{
    # Declaramos la ruta de ubicacion del modulo 'comun'.
     @INC=(@INC,"/var/www/cgi-bin/comun"); 
}
use principal_html; 
use strict;
 
&insertar_programa() 
exit;
 
sub inserta_programa { 
  
 my $sql="INSERT INTO programas (nombre_programa,tipo_programa,status_programa) VALUES ('$FORM{nombre}','$FORM{tipo}',$FORM{status}) RETURNING  id";
 
 my $id=&ejecuta($FORM{db},$sql);
 
 return $id;
}
 
sub ejecuta  {
 my ($dbh,$sth,$resultado);
 my ($db,$sql) = @_;
 
 $dbh=DBI->connect("dbi:Pg:dbname=$db; host=$ipserver; port=5432","postgres","TsyaR$_54") or die \
 "Imposible conectar a la base de datos: $DBI::errstr";
 if(!$DBI::errstr){
  $sth = $dbh->prepare($sql) or die "No se ha preparado: $DBI::errstr";
  $resultado=$sth->execute or die "No es posible la ejecucion $sql $DBI::errstr";
  $sth->finish;
  $dbh->disconnect;
  return $resultado;
 } else { &mensaje("Error !!!!","Base de Datos Inexistente"); exit; }
}
Coloreado en 0.007 segundos,  usando GeSHi 1.0.8.4

El insert lo hace correctamente, pero cuando regreso la variable "$resultado" siempre me regresa el valor de uno. Espero y puedan ayudarme a obtener el valor del campo autoincremental.

$rv = $dbh->last_insert_id($catalog, $schema, $table, $field);

Devuelve un valor 'identificando' la fila recien insertada, si es posible. Normalmente este será un valor asignado por el servidor de la base de datos a una columna de tipo serie o autoincremental. Devuelve undef si el controlador no soporta el método o si no puede determinar el valor.
Returns a value 'identifying' the row just inserted, if possible. Typically this would

Los parámetros de $catalog, $schema, $table, y $field pueden ser requeridos por algunos controladores (ver abajo).

Si no sabes los valores de los parámetros y tu controlador no los necesita, entonces usa "undef" por cada uno.

A continuación vienen una serie de problemas o peculiaridades, según el controlador. Habla de MySQL, MS SQL, Sybase, etc. De PostgreSQL no dice nada. Yo probaría con valores "undef".

Este método fue introducido en DBI v1.38.

El valor '1' que obtienes desde el execute() es, según dice el manual, una indicación de que se ha afectado a 1 línea, al tratarse de una sentencia no-SELECT.

por **hugo11ab** » 2011-01-03 12:12 @550

Gracias Explorer, como siempre tus respuestas son muy atinadas. Ya hice la prueba y pude obtener el valor del id.

Coloqué los 4 parámetros como undef y no funcionó, así que solo puse el nombre de la tabla y el campo y con eso me regresó el id que se estaba ingresando.

De esta manera quedó la instrucción:

$resultado = $dbh->last_insert_id(undef, undef, $table, $field);

Foro - Perl en Español

Obtener el valor de un campo autoincremental desde Perl

Obtener el valor de un campo autoincremental desde Perl

Publicidad

Re: Obtener el valor de un campo autoincremental desde Perl

Re: Obtener el valor de un campo autoincremental desde Perl

¿Quién está conectado?