-2

可能重复：
Perl + POO 和“不能调用方法”prepare“

我学会了便便，我开始玩 perl，创建了这个模块，但是当我调用 segudno 方法时，我跳过了以下错误“在连接中使用未初始化的值 $database (.) ...”，然后是“无法调用方法” '准备' mm 我不太明白，有什么建议吗？

#!/usr/bin/perl

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;
    our $connect = DBI->connect("DBI:mysql:database=$database;host=$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'";
    our $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;

在其他文件中调用 msg 并创建了反对。

#!/usr/bin/perl
use MysqlTest;
use warnings;
use strict;

my $mysqltest = MysqlTest->new();
$mysqltest->conexion("bookmarks", "localhost", "root", "pass");
$mysqltest->consulta();

控制台中的此输出。

Use of uninitialized value $database in concatenation (.) or string at MysqlTest.pm line 23.
Use of uninitialized value $hostname in concatenation (.) or string at MysqlTest.pm line 23.
Can't call method "prepare" on an undefined value at MysqlTest.pm line 31.

任何的想法？

谢谢。

4

1 回答 1

4

您的代码包括这一行：

if (!my $mysqlopen) { &conexion(); }

你打电话给你的conexion潜艇没有参数。然而，这个 sub 需要几个参数，包括你不提供的祝福对象。你可能想解决这个问题。$database并且$hostname在论点中也是预期的。

您对 to 的调用conexion将始终被执行，因为my $var创建了一个新变量并将其初始化为undef— 并且否定undef是一个真值。

然后你有这个声明：

our $result = my $connect->prepare($id);

my创建一个$connect您尝试在其上调用方法的新变量prepare。这不起作用，因为创建的变量不是受祝福的引用，而是简单undef的 .

Perl 中的作用域

my这是一个关于Perl 中的词法作用域如何工作的详细示例

# $var doesn't exist

sub foo {
   # $var doesn't exist
   my $var;
   # $var exists
   bar();
   # $var exists
}

# $var doesn't exist

sub bar {
   # $var doesn't exist
   return;
}

# $var doesn't exist

您在 中定义一个my变量，然后mysqlopen在conexion中重新定义它consulta。但是，它不是同一个变量，因为这些变量位于不同的范围内。

相反，您可能会在传递的对象中添加字段mysqlopen，connect因为这是对象数据。然后，您可以像使用hostordatabase字段一样使用此信息。

另外，不要在conexion没有对象的情况下调用该方法。对象通常使用new.

编辑

我很难同时调试你的代码和解析你的英语，所以这里是你的代码，删除了最严重的错误。但是，我没有使用 DBI 的经验，所以它可能无法直接工作：

sub conexion{
   my $self=shift;
   die "I need args!" unless @_;
   my($database, $hostname, $user, $pwd)=@_;
   $self->{host}     = $hostname;
   $self->{database} = $database;
   $self->{user}     = $user;
   $self->{pass}     = $pwd;
   $self->{connect}  = DBI->connect(
      "DBI:mysql:database=$database;host=$hostname;",
       $user,
       $pwd,
   ) or die $DBI::errstr;
   $self->{mysqlopen}= 1;
   return;
}

sub consulta{
   my $self = shift;
   if (not $self->{mysqlopen}) {
      die "This object wants to be conexioned before you consulta anything";
      # you could also do
      #    $self->conexion(DEFAULT_VALUES);
      # but then you would really *have* to provide defaults!
   }
   my $id = "SELECT * FROM save_bookmarks WHERE id='123'";
   my $result = $self->{connect}->prepare($id);
   $result->execute();
   my @resultado = $result->fetchrow_array();
   print "@resultado\n";
   return;
}
于 2012-09-29T20:39:12.597 回答