Perl: Создание новых переменных внутри цикла

Question

У меня есть код, подобный следующему:

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

Чтобы избежать повторения, я хочу пойти на петлю

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

Однако это приводит к синтаксической ошибке:

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

Что я здесь делаю неправильно?

Answer 1

Сначала вы должны написать $i."ubid" или "${i}ubid" вместо "$i.ubid".

И я хотел бы использовать хэш, как:.

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

Answer 2

Вы объявляете переменную не так, вы можете использовать хеш вместо нее.

Но если вы хотите достичь подобных же образом, сделать это таким образом

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

$$ создает переменные значения внутри переменный, так же, как в PHP.