Foro - Perl en Español

por **visualfree** » 2009-11-25 19:21 @848

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use DBI;
$db="perl";
$host="localhost";
$port="3306";
$userid="root";
$passwd="miclave";
$connectionInfo="DBI:mysql:database=$db;$host:$port";
$dbh = DBI->connect($connectionInfo,$userid,$passwd);
$query = "SELECT id_usuarios,nombre FROM usuarios";
$sth = $dbh->prepare($query);
$sth->execute();
$sth->bind_columns(undef,$id_usuarios,$nombre);
while($sth->fetch()) {
    print "$id_usuarios - $nombre \n";
}
$sth->finish();
$dbh->disconnect;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Me sale el siguiente error:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Global symbol "$db" requires explicit package name at mostrar.pl line 4.

Global symbol "$host" requires explicit package name at mostrar.pl line 5.

Global symbol "$port" requires explicit package name at mostrar.pl line 6.

Global symbol "$userid" requires explicit package name at mostrar.pl line 7.

Global symbol "$passwd" requires explicit package name at mostrar.pl line 8.

Global symbol "$connectionInfo" requires explicit package name at mostrar.pl line 9.

Global symbol "$db" requires explicit package name at mostrar.pl line 9.

Global symbol "$host" requires explicit package name at mostrar.pl line 9.

Global symbol "$port" requires explicit package name at mostrar.pl line 9.

Global symbol "$dbh" requires explicit package name at mostrar.pl line 10.

Global symbol "$connectionInfo" requires explicit package name at mostrar.pl line 10.

Global symbol "$userid" requires explicit package name at mostrar.pl line 10.

Global symbol "$passwd" requires explicit package name at mostrar.pl line 10.

Global symbol "$query" requires explicit package name at mostrar.pl line 11.

Global symbol "$sth" requires explicit package name at mostrar.pl line 12.

Global symbol "$dbh" requires explicit package name at mostrar.pl line 12.

Global symbol "$query" requires explicit package name at mostrar.pl line 12.

Global symbol "$sth" requires explicit package name at mostrar.pl line 13.

Global symbol "$sth" requires explicit package name at mostrar.pl line 14.

Global symbol "$id_usuarios" requires explicit package name at mostrar.pl line 14.

Global symbol "$nombre" requires explicit package name at mostrar.pl line 14.

Global symbol "$sth" requires explicit package name at mostrar.pl line 15.

Global symbol "$id_usuarios" requires explicit package name at mostrar.pl line 16.

Global symbol "$nombre" requires explicit package name at mostrar.pl line 16.

Global symbol "$sth" requires explicit package name at mostrar.pl line 18.

Global symbol "$dbh" requires explicit package name at mostrar.pl line 19.

Execution of mostrar.pl aborted due to compilation errors.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

El error Global symbol "$rows" requires explicit package name quiere decir que estás usando una variable que no ha sido declarada en ningún sitio.

Es uno de los efectos del use strict;: con él, estamos diciendo que nuestro programa está escrito (o debería estar escrito) de forma estricta. Eso implica, entre otras cosas, que todas las variables deben ser declaradas antes de ser usadas, bien de forma local con my() o de forma global con our() o importadas desde otros paquetes.

O quitas el 'use strict;'. Cualquiera de las dos formas te vale.

Quedaría así

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
 
use DBI;
 
my $db     = 'perl';
my $host   = 'localhost';
my $port   = 3306;
my $userid = 'root';
my $passwd = 'miclave';
 
my $connectionInfo = "DBI:mysql:database=$db;$host:$port";
 
my $dbh    = DBI->connect($connectionInfo, $userid, $passwd);
my $query  = 'SELECT id_usuarios,nombre FROM usuarios';
my $sth    = $dbh->prepare($query);
 
$sth->execute();
 
my($id_usuarios,$nombre);
$sth->bind_columns(\$id_usuarios, \$nombre);
 
while ($sth->fetch()) {
    print "$id_usuarios - $nombre \n";
}
 
$sth->finish();
$dbh->disconnect;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **visualfree** » 2009-11-25 19:53 @870

Le quité el use strict;

Ahora sale esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

perl mostrar.pl

Can't DBI::st=HASH(0x92c8bd0)->bind_col(1, undef,...), need a reference to a scalar at /usr/lib/perl5/DBI.pm line 1867.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Y con tu código, explorer, me sale lo siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Global symbol "$id_usuarios" requires explicit package name at mostrar1.pl line 20.

Global symbol "$nombre" requires explicit package name at mostrar1.pl line 20.

Global symbol "$id_usuarios" requires explicit package name at mostrar1.pl line 23.

Global symbol "$nombre" requires explicit package name at mostrar1.pl line 23.

Execution of mostrar1.pl aborted due to compilation errors.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2009-11-25 20:11 @882

Se nota que el código no tenía originalmente el use strict;, así que es normal que salgan avisos de variables no declaradas por todas partes.

Ya he cambiado el código.

por **visualfree** » 2009-11-25 20:30 @895

Funciona, pero qué complicación :S.

Saludos y gracias.

por **explorer** » 2009-11-25 20:42 @904

Lo que no se entiende, es complicado.
Lo que se entiende, ya no importa tanto.
Lo que interesa, es lo que hay en medio: ganas de aprender.

por **visualfree** » 2009-11-26 00:18 @054

Me salió un nuevo problema en el camino. Ayuda, plz:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
 
use DBI;
 
my $db     = 'perl';
my $host   = 'localhost';
my $port   = 3306;
my $userid = 'root';
my $passwd = 'miclave';
 
my $connectionInfo = "DBI:mysql:database=$db;$host:$port";
 
my $dbh    = DBI->connect($connectionInfo, $userid, $passwd);
my $query  = 'INSERT INTO usuarios(nombre,apellido,telefono,edad) VALUES('Pedro','Perez','212121','23')';
my $sth    = $dbh->prepare($query);
 
$sth->execute();
 
 
$sth->finish();
$dbh->disconnect;
                     
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y me sale el siguiente error:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

perl mostrar2.pl

Bad name after Pedro' at mostrar2.pl line 16.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Saludos...

por **explorer** » 2009-11-26 05:35 @274

Estás intentando poner comillas simples dentro de un valor que ya estaba entrecomillado simple.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

'INSERT INTO usuarios (nombre,apellido,telefono,edad) VALUES ('Pedro','Perez','212121','23')';Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Tienes varias opciones, como por ejemplo una, que sería "escapar" las comillas simples del interior, pero las más cómodas es jugar con el doble sistema de entrecomillado:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

"INSERT INTO usuarios (nombre,apellido,telefono,edad) VALUES ('Pedro','Perez','212121','23')";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

'INSERT INTO usuarios (nombre,apellido,telefono,edad) VALUES ("Pedro","Perez","212121","23")';Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

(aunque esta última quizás tengas problemas al pasárselo al motor de la base de datos).

Otra solución es usar la función de entrecomillar: q()

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

q(INSERT INTO usuarios (nombre,apellido,telefono,edad) VALUES ('Pedro','Perez','212121','23'));Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **visualfree** » 2009-11-26 12:25 @559

Las comillas dobles por fuera y las simples por dentro funcionó de forma satisfactoria. Gracias nuevamente...

por **explorer** » 2009-11-26 12:31 @563

Bien...

Ahora, como deberes para casa, tendrás que explicarnos por qué no funcionaba antes y por qué funciona bien ahora... Debe existir alguna razón

Foro - Perl en Español

Errores de sintaxis con 'strict'

Errores de sintaxis con 'strict'

Publicidad

Re: Ayuda Mysql + Perl+ DBI...

Re: Ayuda Mysql + Perl+ DBI...

Re: Ayuda Mysql + Perl+ DBI...

Re: Ayuda Mysql + Perl+ DBI...

Re: Ayuda Mysql + Perl+ DBI...

Re: Ayuda Mysql + Perl+ DBI...

Re: Ayuda Mysql + Perl+ DBI...

Re: Errores de sintaxis con 'strict'

Re: Errores de sintaxis con 'strict'

¿Quién está conectado?