Foro - Perl en Español

por **opmeitle** » 2012-09-29 12:17 @553

¡¡Hola!! Aprendí POO y me puse a jugar en Perl, ahora bien... Me sale un error y no sé a qué corresponde, espero algún consejo para poder solucionarlo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
#Modulo MySQL inserta y consultar registros
use warnings;
use strict;
use DBI;
use DBD::mysql;
package MysqlTest;
 
sub new{
    my $class = shift;
    my $query={};
    bless($query, $class);
}
sub conexion{
    my $self=shift;
    my($database, $hostname, $user, $pwd)=@_;
    $self->{"host"}=$hostname;
    $self->{"database"}=$database;
    $self->{"user"}=$user;
    $self->{"pass"}=$pwd;
    my $connect = DBI->connect("DBI:mysql:$database:$hostname", $user, $pwd) or die $DBI::errstr;
    my $mysqlopen = 1;
return;
}
sub consulta{
    my $self=shift;
    if (!my $mysqlopen) { &conexion; }
    my $id = "SELECT * FROM save_bookmarks WHERE id='123'";
    my $result = my $connect->prepare($id);
    $result->execute();
    my @resultado = $result->fetchrow_array();
    print "@resultado\n";
    return;
}
sub datos{
    my $self=shift;
    print "::DATOS DE ACCESO::\n";
    while ((my $key, my $value)=each(%$self)){
        print "$key => $value\n";
    }
}
1;
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Acá dejo el otro archivo donde invoco el objecto y los mensajes.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use MysqlTest;
use warnings;
use strict;
 
my $mysqltest = MysqlTest->new();
$mysqltest->conexion("bookmarks", "localhost", "root", "hacura");
$mysqltest->consulta();
$mysqltest->datos();
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y a continuación el error en consola.

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

Use of uninitialized value $database in concatenation (.) or string at MysqlTest.pm line 22.
Use of uninitialized value $hostname in concatenation (.) or string at MysqlTest.pm line 22.
Can't call method "prepare" on an undefined value at MysqlTest.pm line 30.
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Un saludo, luis.

#!/usr/bin/env perl
package MysqlTest;
 
sub new{
    my $class = shift;
    my $query = {};
    bless($query, $class);
}
 
sub conexion {
    my $self=shift;
    my($database, $hostname, $user, $pwd)=@_;
    $self->{"host"}=$hostname;
    $self->{"database"}=$database;
    $self->{"user"}=$user;
    $self->{"pass"}=$pwd;
 
    print "DBI:mysql:$database:$hostname, $user, $pwd\n";
    
    return;
}
 
1;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y el siguiente programa

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl
use MysqlTest;
use warnings;
use strict;
 
my $mysqltest = MysqlTest->new();
$mysqltest->conexion("bookmarks", "localhost", "root", "hacura");
 
use Data::Dumper;
print Dumper $mysqltest;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

sale:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

DBI:mysql:bookmarks:localhost, root, hacura

$VAR1 = bless( {

                 'database' => 'bookmarks',

                 'pass' => 'hacura',

                 'user' => 'root',

                 'host' => 'localhost'

               }, 'MysqlTest' );Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Un par de detalles:

la línea 8 (la del package), la pondría en la la línea 2
la línea 23 no hace nada: estás declarando una variable local, que se perderá en la línea 25
el problema está en la línea 28: estás llamando a conexion() sin pasarle parámetros, y ese método no está preparado para esa contingencia. Debes cambiar la línea 28 para que sea igual a la línea 8 del programa. Y fíjate que estás consultando la variable $mysqlopen, que sabemos que no va a existir de ninguna manera, así que el if() siempre es verdadero (niegas el valor de un valor indefinido), así que siempre llama a conexion()
en la línea 30 sobra el segundo my()

El ejercicio es bueno: intentar cachear la conexión a la base de datos para realizarla una sola vez.

Inténtalo de nuevo

Foro - Perl en Español

Perl + POO "Can't call method "prepare"

Perl + POO "Can't call method "prepare"

Publicidad

Re: Perl + POO "Can't call method "prepare"

¿Quién está conectado?