Perl错误：无法修改非左值子程序调用

发布时间：2020-12-15 23:25:26 所属栏目：大数据来源：网络整理

导读：我的班级出现以下错误：“无法在file.do第26行修改非左值子程序调用.”我的file.do看起来像这样： line 2: use BookController;line 3: my $bookdb = BookController-new();...line 26: $bookdb-dbh = 0; 我的BookController.pm看起来像这样： #!/usr/bin/pe

我的班级出现以下错误：“无法在file.do第26行修改非左值子程序调用.”我的file.do看起来像这样：

line 2:    use BookController;
line 3:    my $bookdb = BookController->new();
...
line 26:   $bookdb->dbh = 0;

我的BookController.pm看起来像这样：

#!/usr/bin/perl

package BookController;
use strict;

sub new
{
    my $this = shift;
    my $class = ref($this) || $this;

    my $self = {};
    $self->{DBH} = undef;

    bless $self,$class;

    return ($self);
}

sub dbh
{
    my $self = shift;
    $self->{DBH} = shift if (@_);
    return $self->{DBH};
}

1;

有什么建议？

解决方法

您正在尝试设置sub的返回值,因此错误.从实际方法来看,我认为你的意思是：

$bookdb->dbh(0);

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!