perl: difficulté tableau passer à la fonction

Question

Tout ce que je veux faire est de passer un un tableau à une fonction (ou sous-programme) dans PERL

Alors @Temp contient 2 tableaux [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]); 

C'est la méthode de createHand wich est contenu dans une classe individuelle (ou paquet ou autre chose)

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; 
} 

le problème i ai est que le réseau reçoit p assed mais contient ARRAY(XXXXX) au début du tableau. E.g. {0 ARRAY(xxxxxx), 0 'xx', 1 'xx', ...}

Pourquoi cela se produit-il?

Comment puis-je gérer correctement?

Answer 1

Si vous activez warnings, vous obtiendrez la suivante:

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

Si vous voulez passer le tableau référencé par valeur, vous devez déréférencer:

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

Answer 2

Vous passez une référence au lieu d'une valeur.

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

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

donc un changement mot @temp[0]-$temp[0] en passant l'argument

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; 
} 

Veuillez également prendre note que @temp [0] est tranche de tableau dans le cas où scalaire (ref tableau) est recherché, alors il est préférable de dire bonne intention:

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