Perl: Проблема прохождения массива функционировать

Question

Таким образом, все я хочу сделать, это передать массив в функцию (или подпрограммы) в PERL

Так @Temp содержит 2 массивы [0] = {xx,xx,xx,xx,xx} [1] = {xx,xx,xx,xx,xx}

#returns array containing two arrays 

my @temp = $lineParser->parseLine($_); 

@handOne = $cardFactory->createHand(@Temp[0]); 
@handTwo = $cardFactory->createHand(@Temp[1]); 

Это метод createHand которым содержатся в отдельном классе (или пакете или любом другой)

sub createHand 
{ 
    my $self = shift; 
    my @temp = @_; 
    my @arrayOfCards; 
    foreach(@temp) 
    { 
     my $value = substr($_,0,1); 
     my $color = substr($_,1,1); 

     push(@arrayOfCards,new Card($value,$color)); 
    } 

    return @arrayOfCards; 
} 

проблемы я имею что массив получает р assed, но содержит ARRAY(XXXXX) в начале массива. . {0 ARRAY(xxxxxx), 0 'xx', 1 'xx', ...}

Почему это происходит?

Как я могу это сделать правильно?

Answer 1

Если вы включите warnings, вы получите следующий:

Scalar value @Temp[0] better written as $Temp[0] 

Если вы хотите передать ссылочный массив по значению, вы должны разыменовать ему:

@handOne = $cardFactory->createHand(@{ $Temp[0] }); 

Answer 2

Вы передаете ссылку вместо значения.

my @temp = $lineParser->parseLine($_); 

@handOne = $cardFactory->createHand($Temp[0]); 
@handTwo = $cardFactory->createHand($Temp[1]); 

так в двух словах изменения @temp[0] к $temp[0] при переходе от аргумента

Answer 3

sub createHand 
{ 
    my $self = shift; 
    my ($temp) = @_; 
    my @arrayOfCards; 
    foreach(@$temp) 
    { 
     my $value = substr($_,0,1); 
     my $color = substr($_,1,1); 

     push(@arrayOfCards,new Card($value,$color)); 
    } 

    return @arrayOfCards; 
} 

Также примите к сведению, что @temp [0] является массивом ломтика в случае, когда скалярная (массив ссылок) разыскивается, так это лучше заявить правильное намерение:

@handOne = $cardFactory->createHand($temp[0]);