Perl에서 배열 참조 오류가 아닙니다.

Question

Perl에서 오류가 발생하고 이유를 찾을 수 없습니다. 오류

: 내 유틸리티 파일에서 다음 Service.pm에서 배열이 아닌 참조, 라인 (20)

my $array = [ { name => 'George', surname => 'Marley' } ]; 
my $helper = CustMessage->new(); 
$helper = CustMessage->getMessage($array); 

내가 가진 :

sub getMessage { 
    my ($self, $args) = @_; 
    my $stringsArray = shift; 

    my $strings = Service->new({ 
     serviceId => $self->_serviceId(), 
    }); 

    return unless $strings; 

    $strings->getStrings($stringsArray); 
} 

다음 서비스 방법에 있습니다

sub getStrings { 
    my ($stringsArray, $self) = shift; 
    my @keys = map({ $_->{'name'} } @{$stringsArray}); 
    my $key = join('', @keys); 
    $key = MIME::Base64::encode($key); 

    my %results; 
    $results{$key} = $self->_callStrings->($stringsArray); 
    $results{$key}->initialize(); 

    $results{$key} = $self->{serviceCalls}->{getStrings}; 
    return $self->{serviceCalls}->{getStrings}; 
} 

오류는 Service.pm의 getStrings 메서드의 두 번째 줄에 있습니다.

,210

my @keys = map({ $_->{'name'} } @{$stringsArray}); 

Answer 1

RE: I'm getting an error in Perl and I can't work out why. Error: Not an ARRAY reference at Service.pm, line 20

getStrings() 객체 방법이므로

가

my ($self, $stringsArray) = @_; 

대신

my ($stringsArray, $self) = shift; 
# $self is always undef here due one element list assignment 

의 시도 인스턴스 항상 @_ 배열의 첫번째 요소 오브젝트.

Answer 2

선들

my $helper = CustMessage->new(); 
$helper = CustMessage->getMessage($array); 

매우 홀수이다. 당신은 그것을 버리고

CustMessage->getMessage($array); 

의 결과로 덮어 즉시 $helper의 새로운 CustMessage 객체를 생성되고하는 것은 어떤 떨어져에 갈 수있는 상속에서,

getMessage('CustMessage', $array); 

과 동일 나는 당신이 당신의 "유틸리티 파일"

getMessage 때문에이 같은 인수를 수신 호출로 당신이 진짜 클래스를 정의하지 않아도 의심하고

my ($self, $args) = @_; 
my $stringsArray = shift; 

당신은

($self, $args) = ('CustMessage', $array) 
$stringsArray = 'CustMessage' 

왼쪽과 배열 지령 상실 있도록 다시 $args를 사용하지 않습니다.

내가 말했듯이, 적절한 CustMessage.pm 파일이 없기 때문에 내가 실제로 원하는 것인지 확신 할 수 없습니다. `;하지만 당신은,``내 ($ stringsArray $ 자체) = 이동에`

my $helper = CustMessage->new; 
my $message = $helper->getMessage($array); 

다음

sub getMessage { 
    my ($self, $stringsArray) = @_; 

    ... 
}