Perl錯誤：無法修改非左值子例程調用

Question

我的類遇到以下錯誤：「無法修改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; 

有什麼建議？

Answer 1

您試圖設置sub的返回值，因此是錯誤。根據實際方法判斷，我認爲你的意思是：

$bookdb->dbh(0);