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

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

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

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

#!/usr/bin/perlpackage 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);

总结

以上是内存溢出为你收集整理的Perl错误：无法修改非左值子程序调用全部内容，希望文章能够帮你解决Perl错误：无法修改非左值子程序调用所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。