Php a Perl

[QuakEgoD]

Cordial saludo, tengo el siguiente script en php:

$sql=" select max(campo_id)+1 numero from tabla";
$rs = mysql_query($sql,$conn);
$row = mysql_fetch_array($rs);
$nummax = $row["numero"];

$sql2="insert into tabla2 (campo1, campo2) values (1, $nummax)";
$rs2= mysql_query($sql,$conn);
$row2 = mysql_fetch_array($rs2);

como podria hacerlo en PERL usando el modulo de DBI?

[monoswim]

http://perlenespanol.baboonsoftware....ut/000045.html

Te recomiendo este tutorial, te conecta a la base de datos mediante DBI en una forma muy eficiente y tiene ejemplos sobre como hacer selects e inserts...Por sierto el SQL es lo mismo para todos...

Lo que veo que en la línea $rs2= mysql_query($sql,$conn); debería ser $sql2

leete el tutorial y decime si te queda alguna duda...

Saludos

[QuakEgoD]

Esteban, gracias por tu respuesta, con base a ello contruí el sig. script:

Código:

#!/usr/bin/perl -w

package file;

use strict;
use DBI;

my $db_user = "aaa";
my $db_pass = "bbb";
my $host_name = "10.10.10:2210";
my $db_name = "base";
# vars
my $q_string = "DBI:mysql:host=$host_name;database=$db_name";
sub connect{
return (DBI->connect ($q_string, $db_user, $db_pass,
{PrintError => 0, RaiseError => 1}));
}
my($dbh,$sth);

$dbh = file->connect();
$sth = $dbh->prepare('select max(id_tabla1)+1 numero from tabla1') or die("Couldn't prepare statement: " . $dbh->errstr);
$sth->execute() or die("Couldn't execute statement: " . $sth->errstr);
my $maxnum = $sth->fetchrow_array();
$sth->finish;

$sth1-> $dbh->prepare('insert into tabla1 (id_tabla1) values ($maxnum')
$sth1->execute() or die("Couldn't execute statement: " . $sth->errstr);
$sth1->finish;
$dbh->disconnect;

1
exit;

[monoswim]

son dos archivos los que tenés que crear uno el file.pm y otro el script.pl en donde solo tienes

Código:

my($dbh,$sth);

$dbh = file->connect();
$sth = $dbh->prepare('select max(id_tabla1)+1 numero from tabla1') or die("Couldn't prepare statement: " . $dbh->errstr);
$sth->execute() or die("Couldn't execute statement: " . $sth->errstr);
my $maxnum = $sth->fetchrow_array();
$sth->finish;

$sth1-> $dbh->prepare('insert into tabla1 (id_tabla1) values ($maxnum')
$sth1->execute() or die("Couldn't execute statement: " . $sth->errstr);
$sth1->finish;
$dbh->disconnect;

Pero tienes un error en
$sth1-> $dbh->prepare('insert into tabla1 (id_tabla1) values ($maxnum')
$sth1->execute() or die("Couldn't execute statement: " . $sth->errstr);

debe ser así
$sth1-> $dbh->prepare('insert into tabla1 id_tabla1 values ?');
$sth1->execute($maxnum) or die("Couldn't execute statement: " . $sth->errstr);

Así le estás mandando el $maxinum a través de la función execute

Obviamente antes de esas líneas (en script.pl) tenés que llamar al intérprete y llamara tu librería file.pm...Lo tienes en el tutorial...

Saludos

[QuakEgoD]

Muchas Gracias!! Esteban, entonces la cuestión sería asi:

archivo auto.pm:

Código:

#!/usr/bin/perl -w

package AUTO;

use strict;
use DBI;

my $db_user = "aaa";
my $db_pass = "bbb";
my $host_name = "10.10.10.10:3306";
my $db_name = "base;
# vars
my $q_string = "DBI:mysql:host=$host_name;database=$db_name";
sub connect{
return (DBI->connect ($q_string, $db_user, $db_pass,
{PrintError => 0, RaiseError => 1}));
}

1

y el otro llamado script.pl:

Código:

use AUTO
my($dbh,$sth);

$dbh = AUTO->connect();
$sth = $dbh->prepare('select max(id_tabla)+1 num from tabla') or die("Couldn't prepare statement: " . $dbh->errstr);
$sth->execute() or die("Couldn't execute statement: " . $sth->errstr);

my $maxnum = $sth->fetchrow_array();
$sth->finish;

$sth1-> $dbh->prepare('insert into tabla (id_tabla) values (?)');
$sth1->execute($maxnum) or die("Couldn't execute statement: " . $sth->errstr);
$dbh->disconnect;
exit;

[monoswim]

bien pero el #!/usr/bin/perl -w debes de ponerlo en el script.pl, no en el package...

Pruébalo y me dices...

Saludos

[QuakEgoD]

Arg 6 - Serbia 0

Saludos!! acabo de probar el script (por fin instale active perl) y tengo el siguiente error... Can't call method "DBI::db=HASH(0x1ad02f4)" on an undefined value at C:\auto.pl

[monoswim]

instalaste el módulo DBI y el DBD::mysql ???

Para intalarlos checkea el tutorial de www.perlenespanol.com o este faq

http://www.forosdelweb.com/showpost....1&postcount=26

Saludos

[QuakEgoD]

Efectivamente tengo instalado los modulos necesarios, ya que imprimo la variable $maxnum que proviene de un query (select max) y lo trae sin problemas..

Un saludo

[monoswim]

Perdón, esta línea esta mal

$sth1-> $dbh->prepare('insert into tabla (id_tabla) values (?)');

debería ser

$sth1 = $dbh->prepare('insert into tabla (id_tabla) values (?)');

Saludos

[QuakEgoD]

Me funcionó!!!!!!! muchas gracias!!!!!!!!!

[kidd]

Hola:

Hablando del temas, aquí vienen unos tips que no puse en el tutorial pero que les podrían servir para el futuro.

Las conexiones las base de datos son algo costosas en cuanto a recursos, así que cuando realices una conexión no la finalices sino hasta que hayas terminado de ejecutar todos los querys que deseas realizar.

Lo siguiente es en cuanto al uso de nuestro objeto DBI, en este caso el que inicializamos con nuestra variable $sth.

Muy a menudo sucede que deseamos ejecutar el mismo query una y otra vez por medio de un loop. Podríamos estar tentados a hacer algo así:

Código:

use strict;
use AUTO;


my @frutas = ('platano', 'manzana', 'pera');

my $dbh = AUTO->connect();


    for my $fruta(@frutas){

        my $sth = $dbh->prepare('SELECT COUNT(*) FROM frutas WHERE fruta=?') or die("Couldn't prepare statement: " . $dbh->errstr);
        $sth->execute($fruta) or die("Couldn't execute statement: " . $sth->errstr);
        my $conteo = $sth->fetchrow_array();
        $sth->finish;

        print "$fruta aparece $conteo veces\n";

    }

$dbh->disconnect;

En el ejemplo estoy suponiendo que usamos un módulo como el tuyo. Parece estar bien, pero el chiste del prepare() que ejecutamos al momento de inicializar la variable $sth, es el poder preparar un query que podremos rehúsar. En este caso la sintáxis correcta sería:

Código:

        my $sth = $dbh->prepare('SELECT COUNT(*) FROM frutas WHERE fruta=?') or die("Couldn't prepare statement: " . $dbh->errstr);

    for my $fruta(@frutas){

        $sth->execute($fruta) or die("Couldn't execute statement: " . $sth->errstr);
        my $conteo = $sth->fetchrow_array();

        print "$fruta aparece $conteo veces\n";

    }

        $sth->finish;

$dbh->disconnect;

Ahora si estamos haciendo un uso "correcto" de nuestro query, lo preparamos y ya podemos usarlo las veces que nosotros querramos.

Bueno, estos son mis dos centavos de la noche.


Saludos

[monoswim]

Gracias kidd por tus comentarios...Siempre es bueno aprender algo de buenos estilos de programación...

Saludos