Perl: Création de nouvelles variables dans une boucle

Question

J'ai le code comme suit:

my $player_2ubid = grep { $_->ubid eq "2ubid" } @{$room_members }; 
my $player_3ubid = grep { $_->ubid eq "3ubid" } @{$room_members }; 
# .... 
my $player_11ubid = grep { $_->ubid eq "11ubid" } @{$room_members }; 

Pour éviter les répétitions, je veux aller pour une boucle

for my $i (2 .. 11){ 
my $player_.$i.ubid = grep { $_->ubid eq "$i.ubid" } @{$room_members }; 
} 

Cependant cela produit une erreur de syntaxe:

Can't modify concatenation (.) or string in scalar assignment at ***.t line 100, near "};" 

Qu'est-ce que je fais mal ici?

Answer 1

Vous devez d'abord écrire $i."ubid" ou "${i}ubid" au lieu de "$i.ubid".

Et j'utiliser un hachage comme:.

my %player_ubid; 
for my $i (2 .. 4){ 
    $player_ubid{$i} = grep { $_->ubid eq $i."ubid" } @{$room_members }; 
} 

Answer 2

Vous déclarez la variable dans le mauvais sens, vous pouvez utiliser le hash à la place.

Mais si vous voulez atteindre de la même façon, faites-le de cette façon

for my $i (2 .. 11){ 
    my $var = "player_".$i."ubid"; 
    $$var = grep { $_->ubid eq $i."ubid" } @{$room_members }; 
} 

$$ crée la variable de la valeur dans la variable, comme en php.