Perl - 개체 값이 저장되지 않았습니다.

Question

Perl에서 OOP를 사용하려고 시도했습니다. 내 문제는 클래스에서 변수를 설정하고 있지만 값을 시도하고 검색 할 때 손실됩니다. 나는이 문제가 눈부신 것이라고 확신하지만 좀 더 눈이 필요하다.

생성자 :

sub new 
{ 
    my ($class, $name) = @_; 
    my $self = { 
     _name => $name, 
     _times => [] 
    }; 
    bless ($self, $class); 
    return $self; 
} 

접근/테이터 방법

$js->addRun($duration, $curStartTime); 
print "Times size: " . @{$js->times()} . "\n"; 

addRun에서

관련 코드() 서브 루틴 :

sub addRun { 
    my ($self, $duration, $runDateTime) = @_; 
    if (!defined($duration) || !defined($runDateTime)) { return 0; } 
    push(@{$self->{_times}},$duration); 
} 

메인 프로그램

sub times { 
    my ($self) = shift; 
    if (@_) { @{$self->{_times}} = shift } 
    print "times size: " . @{$self->{_times}} . "\n"; 
    return @{$self->{_times}}; 
} 

콜

이 코드를 실행하면 addRun 서브 루틴을 입력하고 값을 _times 변수에 푸시합니다. 그런 다음 접근 자/변경자를 호출하여 값을 인쇄합니다. 하지만 액세서/뮤 테이터에는 자체 인쇄 명령이 있으므로 반환하기 전에 값을 확인할 수 있습니다.

접근자가 올바른 값을 인쇄하지만 반환 된 내용을 인쇄 할 때 정의되지 않습니다. 내 구문 어딘가 엉망 이냐? 나는 바보 야?

감사

Answer 1

문제는 당신의 시간() 서브 루틴은 배열이 아니라 배열 참조를 반환하는입니다.

다음 주 프로그램에서 times() 호출을 역 참조하려고하지만 필요는 없습니다. 다음과 같이

그래서 메인 프로그램에서 그냥 전화 : -

print "Times size: " . $js->times() . "\n"; 

Answer 2

나는 활성화 use strict;와 코드를 시도하고 Can't use string ("1") as an ARRAY ref while "strict refs" in use을 얻었다.

이 라인을 참조 하였다 print "Times size: " . @{$js->times()} . "\n";

times있어서 값의 배열을 반환한다. 시간의 반환 값을 역 참조 할 때, 당신은 스칼라 문맥을 제공하고있다. 따라서 배열은 배열의 멤버 수를 계산하기 위해 평가됩니다. 즉, 존재하지 않는 @ 1에 액세스하려고합니다.

다음은 코드 정리 버전입니다. 있습니다 (times 방법을 통해 설정할 때 어느 길이> 1의 배열을 가지고하는 것이 불가능했다.

#!/usr/bin/perl 

use strict; 
use warnings; 

my $foo = Foo->new('Pogo'); 

$foo->addRun(10, time); 
$foo->addRun(20, time); 
print "Times: ", join(' ', $foo->times), "\n"; 
print "Times length: " . $foo->times . "\n"; 


BEGIN { 
    package Foo; 

    sub new { 
     my ($class, $name) = @_; 
     my $self = { 
      _name => $name, 
      _times => [], 
     }; 
     bless $self, $class; 
     return $self; 
    } 

    sub times { 
     my $self = shift; 
     if (@_) { 
      my $time_array = shift; 
      @{$self->{_times}} = @{$time_array}; 
     } 
     return @{$self->{_times}}; 
    } 

    sub add_times { 
     my $self = shift; 
     return push @{$self->{_times}}, @_; 
    } 

    sub addRun { 
     my ($self, $duration, $runDateTime) = @_; 

     return 0 unless defined($duration) and defined($runDateTime); 

     $self->add_times($duration); 
    } 

}